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SECTION I 


INTRODUCTION 


The Unified File Access System CUFAS) provides functional compatibility to 
all users of the Series 60 and Series 6000 Information Processing Systems. 
These systems operate under control of the General Comprehensive Operating 
Supervisor (GCOS) through the Input/Output Supervisor (10S) and the File 
Management Supervisor CFMS). UFAS is composed of a set of routines that provide 
automatic management for file processing. 


User input/output operations are implemented through a File Information 
Block (FIB) macro and by specific macro requests that initiate the sequence of 
events necessary for file processing. 


The Unified File Access System provides the user with the following 
capabilities: 


e Logical input/output processing on files with sequential, relative, 
indexed, and integrated file organizations in either batch or time 
sharing environment. 


e Support for File and Record Control (GFRC) files on magnetic tape and 
Linked mass storage. 

e Support for Series 2000 (H2000), American National Standard, and I6M 
magnetic tape files. 

e Support for Indexed Sequential Processor (ISP) files on mass storage. 

e Space and buffer management, and physical input/output management for 


the sequential, random, and dynamic file access modes. 


e Label processing for GFRC, H2000, American National Standard CANS), 
and IBM magnetic tape files. 


e Complete error checking and initiation of proper error processing as 
defined by the American National Standard for COBOL-74. 


e File integrity protection for both normal and abort processing. 


In this discussion of the Unified File Access System the files are arranged 
by type and structure to enable proper selectivity and efficient use of the 
system. The major types or categories of files are designated as_ file 
organizations and are divided into structures, which are called file formats. 
The format of mass storage files allocated as random is called Unified File 
Format (CUFF). Tables 1-1, 1-2, and 1-3 List the UFAS record processing 
functions by file organization and file format. These tables also List the 
processing mode and access mode with the applicable parameters. 
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FILE ORGANIZATIONS 


Four types of file organizations are supported by the Unified File Access 
System. These four types are designated sequential, relative, indexed, and 
integrated. 


Sequential 


In a sequential file organization the files can only be accessed 
sequentially and may reside on magnetic tape or mass storage. 


Relative 


A relative file organization must be allocated as random to a mass_- storage 
device, but may be accessed sequentially, randomly, and dynamically. ALL 
records are assigned a fixed amount of space and can be referenced by record 
number starting with 1. 


Indexed 


An indexed file organization must be allocated as random to a mass storage 
device, but may be accessed sequentially, randomly, and dynamically. Each 
record is identified by a unique key, called prime key, and/or one or more 
subordinate keys, called alternate keys. Both are part of data within the 
record and are also held in an index. 


Integrated 


In an integrated file organization the file must be allocated as random to 
a mass storage device. The records can be of variable Length and are identified 
by a data base key. An integrated file is accessed only through I-~D-S/II. 


ACCESS MODES 


The records in a file can be accessed or retrieved sequentially, randomly, 
or dynamically. Only mass storage files allocated as random can be accessed in 
all three modes. The dynamic mode allows file record access in both sequential 
and random modes through the full duration of an Open function. 


Sequential 


In the sequential access mode, records are entered in, or retrieved from, a 
file in a consecutive predecessor-to-~successor logical record sequence. ALL 
file organizations can be accessed sequentially; however, sequentially ordered 
files can only be accessed sequentially. 
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Random 


In the random access mode each value of a key is specified by the user to 
identify the records to be retrieved from, deleted from, or entered in the file. 
The key value identifies a record independently of any record previously 
accessed. Random access is restricted to ISP files and UFF files with relative, 
indexed, and integrated organizations. 


Dynamic 


The dynamic access mode allows records ina file to be accessed first 
sequentially then randomly (Cor vice versa) without closing and reopening the 
file. This access mode can be used only with ISP files and UFF files having 
relative, indexed, and integrated organizations. The routines necessary for 
sequential and random access are loaded in the system whenever the dynamic 
access mode is specified. 


PROCESSING MODES 


The processing modes available with UFAS are input, output, input/output 
(1/0), and extend. A file can be opened for any of these processing modes, 
depending on whether the function to be performed is Read, Write, Read then 
Write, or Write after the last record in the file. 


Input 


If records are to be retrieved only, they can be retrieved from a file that 
was opened for input. 


Output 


If records are to be entered only, they can be entered in a file that was 
opened for output. 


Input/Output 


To retrieve and alter, replace, insert, or delete records from a file, the 
file must be opened for input/output. 


Extend 


To append records to a sequential file on magnetic tape or mass storage, 
the file must be opened for extend. This processing mode is equivalent to the 
output mode, except that the file is positioned when opened, immediately 
following the last Logical record currently in the file. Succeeding writes add 
records to the file. GFRC files residing on mass storage and H2000 files cannot 
be opened for extend. 
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USER LABEL PROCESSING (for ANS, UFF and IBM files) 


UFAS provides for the processing of User volume, header, and trailer 
records on ANS, UFF, and IBM tape files. In order for UFAS to process’ these 
user Labels the following conditions must be met in the FIB: 


15 File format must be ANS, UFF, or IBM. 


2. File organization must be sequential. 
Sa Standards file labels must be present on input and created on output. 
4. File status code must be specified. 


Dis A Label area must be specified. 


6. Label exit table address must be specified. 


In addition to the required FIB information, a user label exit table must 
be constructed. The table is 12 words in Length and the format is defined in 
Section II under "File Information Block Macro". 


It should be noted that in EXTEND mode processing, the extend exits are 
taken during positioning and the output exits are used after positioning. It is 
the user's responsibility to ensure that the proper read or write user. Label 
functions are issued. If a read function is issued during the output exit, the 
program will be aborted. The same is true of the write function during an input 
or extend exit. 
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FILE FORMATS 


Unified File Formats 


ALL UFF file space must be allocated as random to a mass storage device 
(random mass storage). The UFF file space consists of the attribute region, 
which contains all pertinent information about the file, an optional Label 
region, the data or logical record region, which is divided into control 
intervals and, for integrated files, an inventory region. Formats of UFF mass 
storage files are identical, except where noted. Figure 1-1 illustrates the 


general file format. 
Attribute Region 
Optional Label Region 
Control Interval 


Control Interval 
Inventory Region 


Figure 1-1. General File Format 


Data 
Region 


The file attribute region is of variable length and starts in sector JU of 
the mass storage space allocated to the file. This region contains the 
characteristics Cattributes) of the file. 


The Label region is optional, depending on whether or not the file is 
labeled. This region is of variable length and starts in the next sector 
following the attribute region. Currently, the Label region contains only the 
file name but can accommodate future Labeling requirements. Together the 
attribute and label regions occupy at least one control interval at the 
beginning of the file. 


The data region is composed of control intervals in a format that 
facilitates interchange of files among various systems. Files developed for a 
particular system can be transferred to a different system with a minimum need 
of file reformatting. 
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Each control interval has a header, which contains control information, | 
followed by record data. Control intervals of a file are formatted according to 
their organization (sequential, relative, indexed, and integrated). Indexed and 
integrated file control intervals contain Line offsets and may contain unused 
space. 


Each offset at the end of the indexed and integrated file control intervals 
points to a data record. Both the indexed and integrated records are _ chained 
together with pointers to preserve the logical order within the file. A pointer 
specifies the control interval and a particular offset at the end of the control 
interval. The offset points to the record that the pointer specifies. With 
this procedure records can be moved within the control interval by changing the 
appropriate offsets in the control interval, instead of having to change the 


pointers that may be scattered over many control intervals. Thus, with the 
offsets it is possible to reclaim deleted record space without changing the 
pointers of all records that may be moved in the processing of a file. The 


first bit of an offset is set to indicate that the corresponding record was 
physically deleted and that the offset may be reused. 


The inventory region is applicable only to integrated files. This region 
has the same format as the data control interval. 
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DATA REGION 


The Jata region contains only control intervals of identical format. 
Figure 1-2 illustrates the general control interval format for UFF files. 


| § $$ 2 bye Cpe ag a ee bytes ssi he eg 


@) CI Size (2) Space Available 


(3) CI Number 


G) Lowest Available Line (5) Current High Line 
Number Number 
(6) 


@) Unused Space 


PO timemamer sores | 


(9) Line Number 1 Offset Line Number O Offset 


NOTES: Active size of this control interval in bytes. 
Total space available in bytes in the control interval. 
Number assigned to the control incon: 

First position available in the line offset array. 
Number of positions in the Line offset array minus one. 


Data records. 


Space available for Line offsets. 


CROICHORCHORORS) 


© 
© 


An array of two-byte fields, each containing a record offset in 
the control interval. 


Figure 1-2. General Control Interval Format — 
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Sequential Format 


The control intervals of sequential files on mass storage (see Figure 17-3) 
contain a two-word header followed by data _ records. Each data record is 
composed of a four-byte header followed by data. Bits 18 through 35 of the 
record header contain the size of the record expressed in bytes. 


|< 2 bytes —————>|«-_-_____ 2 bytes ———————>| 


CI Size Total Space Available Control 
Interval 
Header 
Control Interval Number 


Unused Space | 


Figure 1-3. Sequential File Control Interval Format 
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Relative Format 


Like control intervals of sequential files on random mass storage, relative 
file control intervals contain a two-word header followed by data records. A 


four-byte record header containing the record size precedes the data in each 
record. , 


In relative files, the first six bits denote the status. The status of bit 
one is initialized to zero before the file is built. If a record is entered in 
a relative slot, the status bit one is set ON, but the bit is reset if the 
record is subsequently deleted. Figure 1-4 shows the format for the relative 
control interval. 


wean bytes Peewee Seer Oe eee bytes 


Interval 
Control Interval Number Header 
Record a 
| status | eserves | Record size 
| Record n 


te 
Unused Space 


Figure 1-4. Relative Control Interval Format 


Indexed Format 


In an indexed file, the control interval contains a three-word header, and 
a two-word record, followed by data records. Each record has a two-word header. 
The first word of the record header contains a status code that is used by UFAS 
to optimize record retrieval and the record size. 


The second word is the pointer to the next record in sequential order (the 
indexed file is ordered by prime key). The pointer specifies the control 
interval number of the next record and the Line number details the specific 
offset that points to the record at the bottom of the control interval. Figure 
1-5 illustrates the format of an indexed data control interval. 


Each indexed data control interval has a corresponding index entry in a 
control interval in the index file. Control intervals in the index file contain 
a three-word header preceding the index entries. These entries consist of a key 
value and the control interval number. 
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Sa 2 bytes —_>{+-—1 byte —m>t< 1 byte —_——» 
(Active) CI Size Total Space Available 


Control 
Interval 
Header 


Dummy 


Record 


Record a 


Data 


Record n 
Data 


Unused Space 


Line Number Q Offset 


Figure 1-5. Indexed Data Control Interval Format 


One prime key index is entered on an index control interval for each data 
control interval that exists at the time the file is created. The key is the 
Lowest prime key from the succeeding data control interval. When an index 
control interval becomes full, an entry is made in a higher level index with the 
Same entry format. The key is the highest key in the full control interval. 
The prime key may have many Levels of index. The highest Level index has only 
one control interval. The format of an indexed index control interval is shown 
in Figure 1-6. 
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Word j—1 byte->h—1 byte ——s}-<_—_______—~ 2 bytes——__»| 


Control 
Control Interval Number Interval 


Header 
End of List Pointer Number of Index Entries 


Prime Key Control Interval No. 
(4 bytes) 


Prime Key Control Interval No. 
(4 bytes) 


Unused Space 


Figure 1-6. Indexed Index Control Interval Format 


Index Entry j 


oe Entry i 


Only on Fine 
Level Control 
Intervals 
with Local 
Overflow 


In addition to the prime key index, the UFF indexed index file may contain 
one or more alternate key indexes. The alternate keys are provided mainly to 
allow retrieval of records through several paths. An alternate key structure is 
created for each alternate key index. Each alternate key structure is composed 
of a fine level, several coarse levels as needed and, if required, a fine level 
overflow for the fine level. A pointer is kept to the most coarse level control 
interval and is stored in the file attribute region. 


Key entries consisting of a key value and a pointer are placed in the fine 
Level alternate key structure in physical order. This order must be preserved 
to allow sequential access. 


Overflow control intervals are spread throughout the alternate index 
structure. The overflow control interval handles overflow entries from any fine 
index control interval in the area. An unused space is available at the end of 
the file for additional fine level control interval overflow. Fine level index 
control intervals have pointers to Link all fine Level control intervals of a 


particular key. Coarse levels are not changed as records are deleted or 
inserted. 


For files with Local overflow, an inventory of the space available in the 
Local overflow control intervals is included on fine level index control 
intervals. An inventory entry is made for each local overflow control interval 
in the region of the file indexed by the fine level control interval. For 
additional information on overflow, see Appendix E. 


The control interval of an alternate key fine level index contains a 
five-word header followed by unique key values and duplicate key values, if any 
are present. The first word of the header contains the control interval size in 
bytes and the space available for additional entries expressed in words. 
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The second word contains the Level number and the control interval number. 
In the third word, the number of key values is retained to be used in the binary 
search of key values, and an entry size is used to specify size of key value and 
record address (one word long). 


The fourth word has a bit indicator and a next fine Level control interval 
number to provide sequential order of alternate keys. To indicate a next fine 
Level control interval for a fine level overflow, the bit is set to 1; to 
indicate no fine level overflow, the bit remains unchanged. 


The fifth word contains an offset, to indicate the next slot available for 
a record address when duplicate keys are used, and a space reserved for UFAS. 


Every unique key value has a pointer that consists of a control interval 
number and an offset number. 


If a duplicate key exists, bit 0 of the duplicate key pointer is set to 1 
to indicate that the record address is at the offset specified. If bit 0 
remains unchanged this denotes that the record address is included in this word. 
Bits 1-17 contain the word offset for the Last record address of the duplicate 
key value. The number of duplicate keys is expressed in bits 19-35 of the 
pointer. Bit 18 of the pointer is set to 1 if more duplicate keys are present 
in the next fine level control interval. If duplicate keys exist the record 
addresses are entered at the end of the control interval. Figure 1-7 shows’ the 
format of an alternate key fine level index. 
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jaw———_——_——— 2 bytes —_—__—_>|«_________— 2 bytes ——__——>| 
ds) 


- Control Interval Size 
(bytes) 
Level Number=1 Control Interval Number 
Number of Key Values Entry Size (words) 
on this CI 


Next Fine Level Control Interval 


Offset for Next Available Reserved for UFAS 
Record Address 


Unique Key Value 


Control Interval Number Offset 
Number 
Duplicate Key Value . 


Offset to Last 
Record Address 
Duplicate Key 
Value 


Unused Space 


2nd Record Address for Key Value Number 2 
1st Record Address for Key Value Number 2 | 


Figure 1-7. Alternate Key Fine Level Index Format 


Control 
Interval 
Header 


Number of Record 
Addresses on this CI 


In an alternate key coarse level index control interval, the control 
interval contains a three-word header followed by unique key values. No 
duplicate key values are entered in the coarse level control interval. 


The first word in the header contains the control interval size and space 
for additional entries; the second word contains the level number and the 
control interval number; and the third word specifies the number of key values 
in the control interval and the entry size. 
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Entries consist of a unique key value and a 36-bit control interval number 
as shown in Figure 1-8. 


K+ 2 ‘bytes =? bytes 


Control Interval Size Space Available 


Level Number Control Interval Number 


Control 
Interval 
Header 


Figure 1-8. Alternate Key Coarse Level Index Format 


Alternate key fine Level overflow index control intervals are interspersed 
in the fine level index and are grouped at the end of the file. The fine level 
overflow control interval is divided into sections; that is, one section. for 
each fine control interval that has overflow entries. 


The overflow index control interval has a éfive-word header that is 
identical with that of the alternate key fine level index control interval, 
except for the second word. The second word of the overflow index consists of a 
bit that indicates an overflow control interval when set to 1 and a control 
interval number. This header is followed by section descriptions Listed in 
physical order. For duplicate key values, the record addresses are pooled at 
the end of the control interval. Figure 1-9 illustrates the format of the 
overflow index control interval. 
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—_———— 2 by tes bytes —_____»| 
(words) 


Control Interval Size 
(bytes) 
Fee Control Interval Number 


Control 
Interval 


Next Control Interval Number 


Offset for Next Available Reserved for UFAS 
Record Address 


C Next Control Interval Number 


Offset Section 2 (words) Number of Entries 
Next Control Interval Number 


Section 1 Entries 
Section 2 Entries 


Unused Space 
Record Addresses . 


Figure 1-9. Alternate Key Fine Level Overflow Index Format 


Integrated Format 


The control intervals of an integrated file are composed of a header, 
logical records, and Line offsets. A control interval header is three words 
long and contains information necessary to manage the space within the control 
interval. 


In addition to the record size and status, each header in the_ control 
interval contains the record type. This field is used to identify a specific 
record occurrence as one of several types declared in the external control table 
(schema). 


Records in an integrated file may contain set pointers, which are also 
declared in the schema. Set pointers are required for records that participate 
in sets and any number of set pointers are allowed. Records that are members in 
the calc set contain a next and prior pointer for the calc set. All other” set 
members require next, prior, and owner pointers. Set owners require next and 
prior pointers. Set pointers are 2, 3 or 4 bytes long. Sets that are contained 
within one area have pointers large enough to address the records within that 
area. Sets that may span areas have pointers large enough to address the 
records in the data base (see the following diagrams). 
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Number of 
Data Base 
Keys in 
Area 


Number of 
Data Base 
Keys in 
Area 


Size of Intra~Area Pointers (bits) 


Number of Data Base Keys in Data Base 
(NA = not applicable) 


< 22! 


Size of Inter-Area Pointers (bits) 


Number of Data Base Keys in Data Base 


Zor! 


DC89-03 


Figure 1-10 illustrates the format for the integrated control interval. 


Control 
Interval 
Header 

ye a 


}record n 


2 bytes 7 2 bytes 
Se es ee ey eee 


Control Interval Number 


First Available Line Current High Line 
Offset Number Offset Number 


Record 
Status Type Record Size 
(6 bits) (12 bits) 


Data Base Key 
Data Base Key 


coat 


Data 


Unused Space 


Line Number n Offset 
Line Number 1 Offset Line Number O Offset 
18, 27, or 36 bits as specified in the schema. 


Figure 1-10. Integrated Control Interval Format 


INVENTORY REGION 


Integrated files contain an inventory region following the data control 
intervals. Each inventory control interval is identical in format with a data 
control interval and contains only one record. This record has no header word 
and no pointer fields. The inventory records have a one-byte slot for each data 
control interval that describes the space available in that control interval. 
Inventory control intervals have the same size, are read and written into the 
same buffers, and are handled by the same physical 1/0 routines as data control 
intervals. 
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ISP File Format 


Like the UFF file space, the space for ISP files must be allocated as 
random to a mass storage device (random mass storage). The ISP file space 
consists of a data file and an index file. Each of these files is divided into 
fixed-length control intervals, also referred to as pages. The control interval 
size of the data file may vary from that of the index file and is specified when 
the file is created (see Index Sequential Processor manual). 


The first page of both the data file and the index file always begins in 
sector O of the allocated file space. Only the first page of the data and index 
files has a control record called the utilization record which contains the file 
characteristics. The size of the utilization record in the data file is 62 
words and in the index file is 64 words. Utilization records are created when 
the file is initialized and only the utilization record for the data file is 
updated when the file is updated. The index utilization record is preceded by a 
control word that is identical with the record control word for the utilization 
record in the data file. 


In the ISP data files, each control interval begins with a control word. A 
record word always precedes the data in a record. The data is followed by a 
pointer word. 


The pointer word identifies the Location of a record with the smallest’ key 
value that is greater than that of the record the pointer word follows. The 
last record in the file, that is, the record with the greatest key value is 
followed by a pointer to an end-of-file record. A record may vary in size but 
must reside within one control interval and the key value must begin always in 
the same position and have the same size for every record of the files Figure 
1-11 illustrates the format of an ISP data control interval. 


The index file is divided into a coarse index and a fine index. The fine 
index is composed of the control intervals that contain an entry for each 
control interval in the data file. The coarse index control intervals contain 
an entry for each fine index control interval. A coarse index is created only 
if more than one fine index is present. 


Each control interval of the index file also begins with a control word. 
An index entry consists of a key value followed by a page number. The page 
number for an entry in the coarse index is that of a fine index page whose 
Largest key value is equal to the key value in the coarse index entry. The page 
number for ae fine index entry is that of the data page which immediately 
precedes the data page whose lowest key value at the time of file initialization 
was equal to the key value in the fine index entry. The character offset in = an 
index entry is the same as in a data record. Figure 1-12 depicts the ISP index 
control interval format. 
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<3 characters —>}<——— 3 characters—™> . 


Offset Page Number 


Offset Page Number 
Unused Space 


Figure 1-11. ISP Data Control Interval (Page) Format 


Jeonerot Interval 
Header 


Record a 


Record n 


j<—— 3 chahecters-> ees characters—» 


First Key Value 
First Page Number 


nth Key Value © 


nth Page Number 


Control Interval 
Header 


Index Entry a 


Index Entry n 


End of Page Control Word 


Unused Space 


Figure 1-12. ISP Index Control Interval (Page) Format 
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UFF And American National Standard Tape File Format 


EE A. AS AS Oe 


These tape file formats are discussed together because they are almost 
identical. The two formats differ only in the entry in column 80 of VOLT Label 
and the data content. UFF sequential files are identified by an ASCII H in the 
mentioned field, which denotes the Honeywell version of the American National 
Standard. The data content for UFF sequential files may be any 8-bit plus 
parity character set; however, all control fields and Labels are expressed in 
ASCII characters. The UFF sequential file is non-interchangeable except across 
Honeywell lines for UFF. 


PHYSICAL ATTRIBUTES 


9-track tape 


e Variable- or fixed-length records (If variable Length, each Logical 
record is preceded by a 4~byte record=length field ~ record Length is 
in ASCII.) 

® Block serial number (BSN) - Optional (6 characters ASCII) 

e Byte recording mode (write and read 9-track - four 8-bit bytes) 

e Labels (Ccontain ASCII characters)- Optional for UFF; required for 
ANSI. 

e Only ASCII character set for American National Standard interchange 
tapes 

e Any 8-bit plus parity character set is permissible for data content of 


UFF sequential files; however, all control fields and labels are 
expressed in ASCII characters. 


GENERAL FORMAT 


Volume VOL1 Required 
{ UVL1 ) 
User Labels UVLn Optional 
Header { HDR1 y Required 
Label Header Labels HDR2 
Group HDRn Optional 
User Labels € UHLa ) 
UHLz Optional 
Tape Mark ™ Required 
File { Data Block 1 
Data Data Block n Optional 
Tape Mark ™ Required 
{ EOF1 y Required 
Trailer | Trailer Labels EQF2 
Label EOFn Optional 
Group € UTLa ) 
User Labels UTLz Optional 
Tape Mark ™ Required 


Tape Mark ™ Required 
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DATA FORMAT 


The space on which a file is stored is subdivided into blocks. A block may 
contain an integral number of records or a record may span several blocks. 
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A file may contain either fixed-length records or variable-length records. 
In a file with variable-length records the record-length field, which consists 
of the first four bytes of each record, contains the record size in ASCII 
decimal-digits, right justified. , 


Fixed-lLength records do not contain the record-length field. In this 
instance, the block contains nothing but records and possibly unused space. 


Padding is used to ensure an integral number of words in the block. 
Records, including the record-length field, begin and end on byte boundaries 
which do not necessarily coincide with word boundaries. The padding character 
is the circumflex accent (°*- 136 octal). Records can be segmented (spanned). 
A one-byte segment control field precedes each record-length field. The 
combined fields are referred to as a record control field. For a non-spanned 
variable-length record, the record control field is the record-length field. 


The spanned record control field values are as follows: 


- segment contained entirely within this block 
- initial segment 

intermediate segment 

- last segment 


WN—o 
i 


The following diagrams illustrate the block formats for fixed-length, 
variable-length, and spanned records. 


Ist Record 


nth Record 
| unused space | 


Fixed-Length Records 
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Record Length ~- Four Bytes 
1st Record 


Record Length - Four Bytes 
~ nth Record 
Unused Space 


Variable~Length Records 


Record Control Field ~- Five Bytes 


1st Segment 
Record n 


Record Control Field - Five Bytes 
Intermediate Segment 
Record n 


Record Control Field ~- Five a 
Last segment 
Record n 


Spanned Record 


Only relevant data blocks are written on a 9-track tape reel used for 
interchange. Checkpoint records are not allowed. 


If block serial numbers are specified by the user, characters 51 and 52 of 
the HDR2 label for the file give the length of the block serial number field. 
The block serial number must precede immediately the first data record of each 
block. 


LABEL FORMATS AND PROCESSING 


The Labeled UFF and American National Standard format conform to one of the 
following arrangements: single-file single-volume, single-file multi~volume, 
multifile single~volume, or multifile multi-~volume. If a file is contained on 
one or more volumes, the volume or volumes containing a file are considered a 
volume set. For tape files the terms reel and volume are used interchangeably. 
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Both types of file formats contain the following Labels: 


1. Volume~Header Label (VOL1) 

2. First File-Header Label (HDR1) 

3. Second File-Header Label (CHDR2) - Optional 
4. First End-of-Volume Label (EOV1) 


56 Second End-of-Volume Label (CEOV2) - Required if HDR2 is present; 
otherwise, must be omitted. 


6. First End-of-File Label (EOF1) 


ts Second End-of-File Label (EOF2) - Required if HDR2 is present; 
otherwise, must be omitted. 


8. Other optional labels CHDR3-HDRY, EOV3-E0V9, EOF3-E0OF9) 
9. User Labels (UVLn, UHLa, UTLa) - Optional 
These formats are applicable only to 9-track tapes, that are processed with 


RT9/WT9 commands and can be recorded in NRZI or be phase encoded. The end of 
file mark is octal 23 and the recording mode is the byte. 


If a file is multi-volume, items 1 through 5 appear on all volumes, except 
the Last one. The Last volume contains items 1 through 3, and items 6 and 7. 
If a given volume contains more than one file, items 2, 3, 6, and 7 are repeated 
for each file. Multi-file multi-volume combinations are permitted. 


The various file arrangements available with these formats are illustrated 
in Figure 1-13. 
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Single-File Single-Volume 


VOLT HDR1*---File A---xEOFIxx* 
CVOL1 UVLELn HORN UHLa*---File A---*EOFn UTLa**) (see note) 


Single-File Multi-Volume 


VOL1 HDR1*---First Section of File A---*EOV1ix* 
VOL1 HDR1*---Last Section of File A~~-*EQF1** 


Multifile Single-Volume 


VOLY HDR1*---File A---*EOFIT*HDR1*---File B---*xEOF1 «x 
IMultifile Multi-Volume 


VOL1 HDR1*---File A---xEOF*HDR1*---First Section of File B---*EQV1** 
VOL1 HDR1*x---Last Section of File Br--*xEQFIT*XHDRIx---File C---*xEQF1** 


NOTE: 
Asterisk (*) represents tape mark 


This is the general format of a Label tape file. Optional labels may exist on 
input for any of the file arrangements Listed. 


Figure 1-13. UFF And American National Standard Tape File Format 


The name and characteristics of the label fields for the Volume-Header 
Labels, File-Header Label, and End-of-File/Volume Labels are listed and 
described in Figures 1-14 through 1-18. 


Character 
Position Field Name Contents 


Label Identifier and VOL1 
Number 


Volume Serial Number 6 alphanumeric characters 


1 alphanumeric character 
indicating restrictions 


Accessibility 


Reserved for Future 
Use 


Spaces 


Owner Identifier 14 alphanumeric ASCII characters 


Reserved for Future 
Use 


Spaces 


Next Volume Serial 6 alphanumeric ASCII characters 


Number 


Label Standard 3 or H 


Version 


Figure 1-14. Volume~Header Label (VOL1) 
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Volume-Header Label (VOL1) 


LABEL IDENTIFIER AND NUMBER: When an input volume is opened, UFAS examines the 
first four bytes of the first block on that volume for the ASCII Literal string 
VOL1. If VOL1 is present, it is accepted as a Legitimate volume-header Label; 
otherwise, an error condition exists and an operator message is generated. The 
operator can accept the reel and all Subsequent reels as valid, mount a 
different reel to be processed, or abort the job. 


When an output volume is opened, UFAS enters the ASCII Literal string VOL1 
in the first four bytes of the first label block on the output volume. 


Up to nine user volume tLabels, UVL1 through UVL9, may follow’ the 
volume~header label on input. User volume Labels are not written on output. 


VOLUME SERIAL NUMBER: The volume serial number consists of six alphanumeric 
ASCII characters. This number is Left-justified with blanks filled to the right 
if the actual serial number is Less than six characters. 


On output volumes, the volume serial number is placed in this field, 
Left-justified with blanks filled if necessary. 


ACCESSIBILITY: On input volumes, this field is ignored. On output volumes, 
this field is initialized to an ASCII space. 


OWNER IDENTIFIER: This field provides identification for the owner or assignee 
to whom this volume belongs. 


On input, this field is ignored. On output, it is initialized to spaces. 


RESERVED: On input volumes, this field is ignored by UFAS. On output volumes, 
this field is initialized to ASCII spaces. 


NEXT VOLUME SERIAL NUMBER: This field contains the serial number of the next 
volume to be used in volume swap label checking for UFF file types. This field 
contains blanks for all other file types. 


LABEL STANDARD VERSION: On input, this field is ignored. On output, a 3 or H 
is placed in this field. The 3 refers to version numbers of the International 
Standard for Magnetic Tape Labels (X3L5/419T). UFAS also accepts versions 1 and 
2 of the label standards. 


An H in column 80 denotes the Honeywell version (CUFF sequential file on 
tape) of the American National Standard. The tape is non-interchangeable except 
across Honeywell Lines for unified file format. 
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‘Character : 
Position Field Name |} Contents . 


Label Identifier and HDR1 
Number. 


File Identifier Any alphanumeric characters 


File Set Identifier The file serial number of the 
first volume of this file set 


File Section Number 0001 on first volume 
File Sequence Number 4 numeric characters 
Generation Number 4 numeric characters 


Generation Version 2 numeric characters 
Number 


Creation Date A space followed by 5 numeric 
characters 


Expiration Date A space followed by 5 numeric 
characters 


Accessibility 1 alphanumeric character 


Block Count Must be zero 


System Code 13 alphanumeric characters 


Reserved for Future Spaces 
Use 


Figure 1-15. First File~Header Label (HDR1) 
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First File~Header Label (HDR1) 


LABEL. IDENTIFIER AND NUMBER: On input volumes UFAS searches for a HDR1 Label 
following the VOL1 tLabel. There may be any number of user header Labels 
identified by UVLn, where "n" can be any alphanumeric character, in any order 
following the VOL1 label. If present, they are bypassed until the HDR1 Label 
block is found. Any other label identifier is considered an error and an 


operator message is generated. The operator can accept the reet and all 
subsequent reels as valid, mount the correct reel to be processed, or abort the 
job. If the volume is a multifile volume and this is not the first file on the 


volume, UFAS expects the first Label in the file-header Label group to be a HDR1 
label block. If not, the preceding error notification/response is issued. 
Whenever a volume ends within a file, the continuation of the file on the next 
volume must also be preceded by a HDR1 Label. 


On output, the HDR1 Label block of the first file on the volume’ follows 
immediately the VOL1 Label. The HDR1 Label block is the first Label block in a 
file-~header Label group for all subsequent files on a multifile volume. 


FILE IDENTIFIER: On input, this field is compared to the file name if one was 
specified in the FIB- macro. If a file name was not specified, the field is 
ignored. If a comparison is made and an unequal condition is found, an error 
condition exists. The same error procedure as described in the HDR1 identifier 
field is adopted. This field is left justified with spaces filled to the right. 


On output, the file name is entered in this field left justified, with 
spaces filled to the right. If a file name is not present, this field is set to 
ASCII spaces. 


FILE SET IDENTIFIER: On input, this field is processed in the same manner as 
the volume serial number. This field should be the same as that of the volume 
serial number for the first volume on which this file exists. 


FILE SECTION NUMBER: This field must be ASCII 0001 on the first header Label of 
each file. This field is incremented by one in each subsequent volume of the 
same file. 


FILE SEQUENCE NUMBER: On input, this field contains a number from 0001 to 9999 
indicating the relative position of the file within a multifile set in a volume. 
This number is always 0001 for a single file set. 


On output, the first file on a volume has this field initialized to 0001. 
On each subsequent file in a multifile volume, this field is initialized to the 
proper number to indicate the position of the file within the file set (Ci.e., 
0002-9999). 


GENERATION NUMBER: This field is verified by UFAS on input tape files that have 
been selected for file concatenation via the $ FILGP control card. This field 
is initialized to the file generation number passed to UFAS by the Peripheral 
Allocator on output files that are members of a file group index. 


This field is set to 0001 on output tape files that are not members of ae file 
group index. No verification of this field takes place on input tape files that 
are either not members of a file group index or have not been selected for file 
generation via the $ FILGP control card. 
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GENERATION VERSION NUMBER: On input, UFAS ignores this field. On output, this 
field is initialized to ASCII O00. 


CREATION DATE: This field consists of an ASCII space followed by two numeric 
characters for the year, followed by three numeric characters for the day (001 
to 366) within the year. On input files, this field is ignored. 


On output files, this field is initialized to the current date by UFAS. 


EXPIRATION DATE: This field has the same format as the creation date field. On 
input UFAS ignores this field. 


On output, the expiration date is compared to the current date to determine 
if the file can be overwritten. If the tape is unexpired, a message is issued 
to the operator; the operator then has the option to ignore the expiration date 
or abort the job. The new expiration date is calculated by adding the retention 
period specified in the FIB macro to today's date and placing it in the Label. 


ACCESSIBILITY: On input volumes, this field is ignored. On output, the field 
1s initialized to an ASCII space. 


BLOCK COUNT: On input files, this field is ignored. On output, this field is 
initialized to an ASCII 000000. 


SYSTEM CODE: This field is ignored by UFAS on input files; on output files, 
this field is initialized to a system code; e.g., "SR2.0HIS". 


RESERVED: This field is ignored by UFAS on input files; on output files, this 
field is initialized to ASCII spaces. 


Character 
Position Field Name Contents 


1-4 Label Identifier and HDR2 
, Number 


Record Format F Fixed-Length 

V - Variable-Length 
S - Spanned 
U 


Undefined 


Block Length numeric characters 


Record Length numeric characters 


Reserved for System Any alphanumeric characters 


Buffer Offset Length 2 numeric characters 


Reserved for Future 
Use 


Spaces 


Figure 1-16. Second File~Header Label (CHDR2) 
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Second File~Header Label (CHDR2) 


LABEL IDENTIFIER AND NUMBER: When an input file is opened, UFAS examines the 
first four bytes of the Label block immediately following the HDR1 Label block. 
If that tabel block does not contain the ASCII characters HDR2, the Label 
routine assumes that a HDR2 Label does not exist and skips to the first tape 
mark following the HDR1 Label block. If a HDR2 Label block is the next block, 
it is processed and the label routine then skips to the tape mark. In either 
case, additional file-header Labels CHDR3 through HDR9) and user header Labels 
(UHLa) are bypassed on input. If a tape mark is found, label processing on 
input is assumed to be completed. On output, UFAS writes a HDR2 Label block 
immediately following a HDR1 Label block (unless user specifies that labels are 
omitted). A tape mark is written immediately following the HDR2 label block. 


BLOCK LENGTH: This field contains the data block length in bytes. For 
fixed-length records this is the actual block size. For variable-length records 
this is the maximum physical block length less the block serial number’ field 
Length. The block serial number field, which is optional, may appear as the 
first six bytes of each data block. The block-length field is expressed in 
ASCII numeric characters, right justified with zero fill. 


On input, this field is compared to the block size specified in the FIB 
macro. If the FIB macro value is not zero and is Less than the HDR2 block size, 
an exception condition occurs. If the FIB macro value is zero, greater than, or 
equal to the HDR2 block size, the HDR2 value is’ used. On output, the block 
Length expressed in ASCII and right justified, is entered in this field. 


RECORD LENGTH: This field contains the record length in bytes for logical 
records. For fixed-length records this field contains the actual record length. 
For variable-length records this field contains the maximum record Length 
excluding the four-byte, record-length field that appears as the first four 
bytes of each logical record. 


On input, UFAS verifies this field against the value in the FIB macro. If 
the FIB macro value is less than the HDR2 value, an exception condition occurs. 
If the FIB macro value is greater than or equal to the HDR2 value, the HDR2 
value is used. On output the record length is placed in this field in ASCII 
characters. 


RESERVED: On input, this field is ignored by UFAS. On output, this field is 
initialized to ASCII spaces. 


BUFFER OFFSET LENGTH: On input, this field is used by UFAS to determine if 
block serial numbers are used. On output this field is initialized to the size. 
of the block serial number field, if block serial numbers are specified. 
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| Character 
Position Field Name Contents 


Label Identifier and EOF1 or EOV1 
Number 


Same as the corres- Same as the corresponding 
ponding fields in fields in HDR1 
HDR1 


Block Count 6 numeric characters denoting 
the number of data blocks 


System Code 13 alphanumeric characters 


Next Volume Serial 6 alphanumeric ASCII characters 
Number 


Reserved Spaces 


Figure 1-17. First End-Of-File/Volume Label (EOF1/E0V1) 


First End-of-File/Volume Label (EOF1/E0V1) 


LABEL IDENTIFIER AND NUMBER: On input files, UFAS searches for an EOF1 or an 
EOV1 following a tape mark. When an EOV1 Label block is encountered on input, 
any subsequent end-of-voitume Labels (CEOV2 through EOV9) are bypassed and reel 
switching takes place. When an EOF1 Label block is encountered, reel switching 
does not take place and that file is assumed to be complete within that volume. 
Subsequent end-of-file labels (CEOF2 through EOF9) and user trailer Labels (UTLa) 
are ignored. 


. If neither an EOV1 or EOF1 appear as the first trailer label block on an 
input file, an error condition exists. A message is then sent to the operator 
who may continue execution, force an end-of-file condition, or abort the job. 


UFAS always seeks an EOF1 Label block in the close processing mode, as the 
first trailer label encountered. 


On output files, UFAS produces an EOV1 Label block preceded by a tape mark 
whenever it encounters an end-of-reel foil while processing the file. The UFAS 
close processing always produces an EOF1 Label as the first trailer Label on an 
output file. 


CORRESPONDING HDR1 FIELDS: On input files, these fields are ignored by UFAS; on 
output, these fields are provided under the rules stated in the corresponding 
field descriptions in the HDR1 Label block definition. 


BLOCK COUNT: On input, UFAS checks this field against the block dount 
maintained in the file control table for this file. 


On output files, UFAS converts the block count to ASCII and places it in 
this field right-justified and zero-filled to the left. This field indicates 
the number of data blocks of the file recorded on the volume. 
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SYSTEM. CODE: On input files, this field is ignored by UFAS. On output, this 
field is initialized to a system code; e.g., "SR2.OHIS". 


NEXT VOLUME SERIAL NUMBER: CEQOV1 Label only) This field contains the serial 


number of the next volume for UFF file types. This field contains spaces for 
all other file types. 
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RESERVED: On input files, this field is ignored. On output files, this field 
is initialized to ASCII spaces. 


Character 
Position Field Name Contents 


Label Identifier and EOF2 or EOV2 
Number 


Record Format Same as HDR2 


Block Length Same as HDR2 

Record Length Same as HDR2 
Reserved Spaces 

Buffer Offset Length 2 numeric characters 


Reserved Spaces 


Figure 1-18. Second End-Of-File/Volume Label (CEOF2/E0V2) 


Second End-of-File/Volume Label CEOF2/E0V2) 


LABEL IDENTIFIER AND NUMBER: On input files, these Labels and any subsequent 
Label blocks (CEOF3-EOF9, UTLa-UTLz, or EOV3-E0V9) are ignored. UFAS skips to 
the following tape mark. 


On output files, an EOF2 Label block is written immediately following an 
EOF1 Label block Cif a HDR2 was written at the beginning of the file). Then two 
tape marks are written following the EOF2 label block. An EOV2 Label block is 
written following an EOV1 Label block and two tape marks are written immediately 
after the EOV2 label block. 


RECORD FORMAT: Ignored by UFAS on input files. Same action taken on output as 
for HDR2 Label conditions for the corresponding field. 


BLOCK LENGTH: Ignored by UFAS on input files. Same action taken on output as 
for HDR2 Label conditions for the corresponding field. 


RECORD LENGTH: Ignored by UFAS on input files. Same action taken on output as 
for HDR2 Label conditions for the corresponding field. 


RESERVED: Ignored by UFAS on input files. Set to ASCII spaces on output files. 


BUFFER OFFSET LENGTH: Ignored by UFAS on input files. On output, this field is 
initialized to the size of the block serial number field, if hlock serial 
numbers were specified. 


RESERVED: Ignored by UFAS on input files. Set to ASCII spaces on output files. 
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Multi-Volume Output Processing 


When an end-of-volume label (E0V1) is prepared and written, the operator is 
requested to enter the serial number of the next scratch tape volume. The 
entered number is placed in the E0V1 Label and in the VOL1 volume header Label 
of the next scratch tape that is mounted. The serial number is also used for 
tape ready messages. 


Multi-Volume Input Processing 


When an end-of-volume Label (E0V1) is read during input processing, a check 
is made for a next volume serial number. If one is present, it is used in tape 
ready messages and in volume Label processing to ensure that the correct reel is 


mounted. If a next volume serial number is not’ present, end-of-volume 
processing continues. 
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UNLABELED UFF TAPE FILES 


Unlabeled UFF tape files conform to one of the following arrangements: 


e Single-file single-volume, single-file multi-volume, or multi-file 


Single-volume 


ry Optional block serial numbers (BSN) ‘and record control words (RCW) 


(not supported for files opened for extend) 


e The open EXTEND option only for single-file, single or mul 
arrangements 

@ The concept of a NULL file for UFF unlabeled not supported 

® Segmented (spanned) records if RCWs are present 


UNLABELED UFF FILE PROCESSING 


The various file arrangements available with Unlabeled UFF 
illustrated in figure 1-19: 


Single-file  _Single-volume 


Single-file Multi-volume 


user tle part- 
l user file part-n 


Single-volume Multi-file 


F q 7 9 


Tape Mark (TM) 
Optional TM on input, never written on output. 


Figure 1-19. Unlabeled UFF File Arrangements 
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ti-volume 


tape are 
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Single File Input Processing 


When a tape mark is encountered on an unlabeled input single file volume, a 
subsequent read request is interpreted as a request for volume switching to take 
place. It is the user's responsibility to determine the true end of the data, 
for example, by placing a dummy EOF record at the end of the data. 


Multi-File Input Processing 


When a tape mark is encountered on an unlabeled input multi-file volume, a 
subsequent read request is interpreted as a request for the first data block 
following the mark. It is the user's responsibility to determine the true end 
of the data. If an attempt is made to read beyond the tape mark of the last 
file of the volume, an erroneous tape condition can result. 


On an unlabeled multi-file volume, the UFAS programmer may specify a file 
sequence number. At file open time, UFAS positions the current volume to the 
beginning of that file. 
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Output Processing 


For unlabeled output files, the detection of the end of tape (EOT) foil 
causes a tape mark to be written and unit switching to occur. 


Extend Processing 


Single file single-volume and single file multi-volume files may be 
extended. UFAS opens the file to a position that permits logical records to be 
appended to the current file. If the file is multi-volume, it is the user's 
responsibility to ensure that the current volume is the final volume, i.e., the 
volume to which data is to be appended. 


System Input and Output Files 


System Input and Output files cannot be opened for either the extend or 
input/output processing modes. 


PHYSICAL ATTRIBUTES 


Block serial number (8SN) 


Variable-~lLength records (Each logical record is preceded by a record control 
word - RCW.) 


Binary recording mode 
Character set - Source or destination device dependent 
Maximum block size - 320 words 
No labels 
The report code identifies a record as belonging to a specific report or 
card deck. A report code that is unique for each file code is automatically 


generated. If the user does not specify a report code the default report code 
is assumed. 
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‘Logical record octal media code is used by media conversion to determine 
the specific action required for each record when the file is assigned to SYSOUT 


by means 
assigned: 


00 - 
01. -= 
02 = 
03 - 


oo 
NO 
tt 


= 
MN 
‘ 


of the $ SYSOUT or the $ REMOTE card. The following media codes are 


Not a media conversion record, or no printer slew controls 
Binary card image 

BCD card image 

BCD print Line image 

Reserved for user 

Time sharing system ASCII! 

GFRC format ASCII 

ASCII print line image 

Time sharing system information record 
BCD print Line image 

ASCII card image 

ASCII print line image 


Media codes 11 and 15 indicate that a user defined report code was 
inserted in the first two character positions of the logical record. 
Appropriate ignore characters are entered in these character 
positions before output is released to the printer. 


GFRC File Format 


UFAS processes GFRC files on 7- and 9-track tapes or Linked mass_ storage 
(mass storage allocated as Linked). The Linked mass storage files have the same 
physical attributes as the System Input and Output files. 


sa etteneeimneneemrtennmeenetnememeeennemmemnam ena tm eer nena tammmessnmnne ete nan emma ee 


1 
Not supported by UFAS 
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PHYSICAL ATTRIBUTES (Tape Files) 


7- or 9-track tape 
Block serial number - Optional 


Variable- or fixed-length records (If variable Length, each Logical record is 
preceded by a RCW.) 


Binary or BCD recording mode 


Labels optional ~ Recorded in binary 


GENERAL FORMAT (Labeled Tape Files) 


Header Cocmnins Tape Label-BTL Required 
Label Tape Mark -T™M 
Group 
File ( Data Block 1 Optional 
Data Data Block n 

Tape Mark -T™M 
Trailer Trailer Label -EOF Required 
Label Tape Mark -T™M 
Group Partial Tape Label -PTL 


DATA FORMAT 


The file space on tape or mass storage contains blocks of data and control 
information. Each block is composed of a block control word and data records. 
The block control word is optional on tape files. If present, it is the first 
word of each block and contains the following binary values: 


bits 0-17 Block serial number - The sequential number of the block Cwithin the 
current file or within the current reel) if it is a multireel file. 


bits 18-35 Block size - Size of the block, in words, including the block 


control word. Maximum size of a block is 4095 words on tape and 320 
words on mass storage. 


The following diagram illustrates a block with a block control word. 


BLOCK CONTROL WORD 


DATA RECORDS 
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Variable-Length Records 


bits 


bits 


bits 


bits 


bits 


bits 


If the logical records contained within each block are of variable length, 
each record has a record control word as the first word. The contents of the 
record control word are: 


0-17 


18-19 


20-23 


24-25 
26-29 


30-35 


NOTE: 


Binary record size in words, excluding the record control word. 
When a file is assigned to a mass storage device, this value is zero 
if the word is interpreted as an end-of-file (EOF) mark. In this 
instance bits 20-23 contain the end-of-file mark 1111. 


Next available 9-bit character position in last word. Field is 
interpreted as (only with media code 6): 


00 - Full word used 

01 - One character used 

10 - Two characters used 
11 - Three characters used 


Only used when bits O-17 are zero. When this occurs, these bits 
contain end-of-file mark 1111. 


Zeros 


Logical record octal media code is used by media conversion to 
determine the specific action required for each record when the file 
is assigned to SYSOUT by means of the $ SYSOUT or the $ REMOTE card. 
The following octal media codes are assigned: 


00 - Not a media conversion record, or no printer slew controls 
01 - Binary card image 
02 - BCD card image 


03 - BCD print Line image 


04 - Reserved for user 

05 - Time sharing system Asci1! 

06 - GFRC format ASCII 

07 - ASCII print Line image 

10 - Time sharing system information record 
11 ~ BCD print Line image 

12 - ASCII card image 

15 - ASCII print Line image 


Report code identifying this record as one belonging to ae specific 
report or deck. 


Media codes 11 and 15 indicate that a user defined report code was 
inserted in the first two character positions of the logical record. 
Appropriate ignore characters are entered in these character 
positions before output is released to the printer. 


"Not supported by UFAS 
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The following diagram depicts a logical record with a record control word. 


RECORD CONTROL WORD 


Partitioned Records 


A partitioned record is a variable-length Logical record that is ltarger 
than the block size being used. It is, therefore, broken up or partitioned over 
two or more physical records. A partitioned record always starts at the 
beginning of a block and the end of a partitioned record always ends a block. A 
variable-length record file may contain both partitioned and non-partitioned 
records. Partitioned records can reside only on files with media codes 0 or 6. 


For partitioned record files, there are two or more record control words 
Cone for each segment of the partitioned record). The contents of the _ first 
record control word for a partitioned record area are: 


bits 0-17 - Record size in this block 
bits 18-23 - Not used 

bits 24-25 - First segment code (01) 
bits 26-29 ~- Media code (0 or 6) 

bits 30-35 - Report code 


If the next segment of the partitioned record is not the last segment, then 
the record control word contents for the segment are: 


bits 0-17 - Record size in this block 

bits 18-23 - Not used 

bits 24-25 Intermediate segment code (10) 
bits 26-35 - Segment number 


The contents of the record control word for the last segment of a 
partitioned record are: 


bits 0-17 - Record size in this block 

bits 18-19 - Next available 9-bit character position in Last word (media code 6 
only) 

bits 20-23 - Not used 

bits 24-25 - Last segment code (11) 

bits 26-35 - Segment number 
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PAGE PRINTING SYSTEM (CPPS) FORMAT AND PROCESSING 


User programs can create ASCII or BCD print-Line report files to be used as 
input to the Page Printing System (PPS). 


Print-lLine reports containing ASCII data require a $ DATA .U parameter card 
at execution time. The format of the parameter card is shown in the "Control 
Cards" subsection of Appendix A. This option is restricted to an output file 
with these attributes: 


e GFRC Sequential organization 
e Octal media code 7 or 15 
e Directed to 9-track tape 


Print-line reports containing BCD data do not require $ DATA .U processing 
by UFAS to be used as input to the PPS. 


PPS tape formats can be in any of these arrangements: 


single~file, single-volume 
single~file, multi-~volume 
multi-file, single~volume 
multi-file, multi-volume 


Control Word Format 


ASCII data written to a PPS print-Lline report contain a Block Control Word 
(BCW) with the format shown in Figure 1-19.11. 


must be zero 
upper 7 bits of Block Serial Number (binary) 
must be zero | 


Lower 7 bits of Block Serial Number (binary) 
must be zero 

upper 7 bits of block size (binary) 

must be zero 

Lower 7 bits of block size (binary) 


Figure 1-19.1 PPS BLock Control Word 


Records written to a PPS tape must be defined as variable length. The 
Record Control Word (RCW) should contain the information shown in Figure 1-19.2. 
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must be zero 

partitioned record segment code (unused) 
upper 5 bits of record size (binary) 
must be zero 

Lower 7 bits of record size (binary) 
must be zero 

next 9 bit character position (unused) 
media code 

must be zero 

report code 


Figure 1-19.2 PPS Record Control Word 


UFAS checks BCW and RCWs to ensure that all fields contain valid formats. 
After the validity of the control words is ensured, UFAS writes the data with a 
Write Tape 9 command. This requires that the data consists of exclusively ASCII 


characters. Any data that contains binary items may cause the write command to 
fail and the job to abort. 
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LABEL FORMATS AND PROCESSING 


The GFRC tape file format conforms to one of the following arrangements: 
single-file single-volume, single-file multi-volume, multifile single-volume, or 
multifile multi-~volume. 


A volume may contain a portion of a file, a complete file, or more than one 
file. The volume or volumes on which a file resides is considered a volume set. 


The GFRC file format contains the following labels: 


Ve Beginning of tape label (BTL) header Label 
2. End-of-reel (EOR) or end-of-file CEOF) trailer label 


er Partial tape label (PTL) 


The tape. mark is octal 17 for a 7-track tape and octal 23 for a 9-track 


tape. ALl GFRC Labels written by UFAS are 20 words long and are _ recorded in 
binary. 


If a file is multi-~volume, item 2 is an EOR for every volume but the Last 
one, on which it is an EOF label. If a volume contains more than one file, 


items 1 and 2 are repeated for each file. Partial labels are written as 
end-of-information banners on a volume. 


The various file arrangements available with this format are illustrated in 
Figure 1-20. 


| Single-File Single-Volume 
----- File A--~-*EOF*PTL 


Single-File Multi-Volume 


BTL*----First Section of File A-~~~*xEOR* 
BTL*----Last Section of File A-m~~~*EOF*PTL 


Multifile Single-Volume 
BTL e----File Am---*EOF*eBTL&e----File Br~--*EOF*PTL 


Multifile Multi-Volume (Only with UFAS) 


BTL ¥----File A---~~*EQF*BTL*----First Section of File B--~~--*EOR* 
BTL*----Last Section of File Br---*EQF*BTL&e----File C----*EQF*PTL 


NOTE: Asterisk(*) represents tape mark 


Figure 1-20. GFRC Tape File Format 
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The name and characteristics of the label fields for the Beginning of Tape 
Label, End-of-File or End-of-Reel Label, and Partial Tape Label are Listed in 
Figures 1-21 through 1-23 followed by a description of each item. 


Label Identifier GEBB600KBBTLB 


Installation Identifi- 6 alphanumeric characters 
cation 


Tape Reel Serial Number 5 alphanumeric characters right justified 
File Serial Number 5 alphanumeric characters right justified 
Reel Sequence Number 4 numeric characters right justified 
Creation Date 2 characters (yy) for the year 

followed by 3 characters (ddd) for 

the day of the year, right justified 


UFAS Identifier 3 alphanumeric characters ~ Dbb 
Retention Period 3 numeric characters 


File Name 12 alphanumeric characters 
User Words (Arbitrary) 


Reel Number in Preceding 666666 or PRVERR 
EOR is Erroneous 


File Sequence Number Binary 


Header Sequence Number Binary 


Retention Date Binary year and day of year 
Tape Density Binary 


Reserved for System 


Figure 1-21. GFRC Beginning of Tape Label (GFRC BTL) 


Beginning of Tape Label (BTL) 


LABEL IDENTIFIER: On input volumes, UFAS expects a label with the identifier 
GEBBS6OOBBTLB. Any other Label is considered an error and an operator message is 
generated. The operator can accept the reel as valid, mount the correct reel to 
be processed, or abort the job. On output, the label identifier, GEBB6O0BTLB, 
appears in the first two words of the label. 


When a file is opened for input and at the beginning of each subsequent 
reel of a multireel file, the Label is checked to ensure that the correct reel 
is being processed. The following conditions must be met for an input label to 
be valid: 


1. The file serial number taken from the $ TAPE card must agree with the 
file serial number in the Label. This test is bypassed if the $ TAPE 
file control card contains the file serial number 99999, 
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2. The reel sequence number taken from the $ TAPE card (default of 1) 
must agree with that contained in the label. When reel switching 
occurs, the reel sequence number is incremented. 


Se The file name supplied by the user in the FIB macro must agree with 
the file name contained in the Label. If no file’ name is supplied, 
this test is bypassed. 


4. The reel serial number in the Label must agree with the reel serial 
number in a previous EOR Label. This test is bypassed if the literal 
PRVERR appears in the label. 


If these tests are passed, a message is written to the user's execution 
report indicating tape reel serial number, file code, file sequence number, and 
reel sequence number. 


If any of the preceding tests fail, an operator message is generated. This 
message includes the SNUMB, unit code, and all necessary information from the 
Label. The operator may then either accept the reel as valid, accept this reel 
and all subsequent reels as valid, mount the correct reel to be processed, or 
abort the job. 


When an output file is opened and after reel switching, the beginning of 
tape label is read. This may be a blank reel label or a header Label on which 
the retention period has expired. (Retention period = date created + retention 
days.) If these conditions are not met, a message is typed to the operator 
indicating the invalid condition. The operator may accept the reel as valid by 
entering the correct reel serial number, removing the reel and mounting a new 
one, or aborting the job. 


Acceptance of a reel after an invalid condition and if this is not the 
first reel, the reel number provided by previous EOR trailer Label processing is 
compared with the reel serial number of the current reel. If the two numbers do 
not match, a message is written to the operator who can continue execution, 
dismount the tape and mount the correct one, or abort the job. 


After acceptance of a reel for output, a message is written to the user's 
execution report indicating tape reel serial number, file code, file sequence 
number, and reel sequence number. 


INSTALLATION IDENTIFICATION: Constant information for a given user 
installation. This field is ignored by UFAS Label checking routines. 


TAPE REEL SERIAL NUMBER: The serial number of the physical tape reel. This 
number is marked externally on the reel itself. 


FILE SERIAL NUMBER: The tape reel serial number of the first reel of the file. 


REEL SEQUENCE NUMBER: The number of the reel within a given file. For example, 
the first reel of a file is reel 0001, the second is 0002, etc. 


CREATION DATE: Year and day of year that the tape was created; recorded in BCD. 


UFAS IDENTIFIER: The first character is a D for files written by UFAS. This 
character is a blank in GFRC-created labels. 
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RETENTION PERIOD: Three BCD characters specifying the number of days that the 
tape must be kept before being erased (see Retention Date). 


FILE NAME: Twelve BCD characters, left justified, giving the user-defined name 
of this file. ; 


USER WORDS: These words are available for the user program and are bypassed by 
UFAS Label checking. 


REEL NUMBER ERRONEOUS: On output, the reel number provided by the previous EOR 
trailer label processing is compared with the reel serial number of the current 
reel. If the two numbers do not match, a message is generated and the operator 
can continue execution, dismount the tape and mount the correct one, or abort 
the job. If the operator continues by ignoring the error, a Literal PRVERR is 
placed in the header label. On input, the reel serial number in the label must 
agree with the reel serial number in the previous EOR label. This test is 
bypassed if the Literal PRVERR appears in this field. 


FILE SEQUENCE NUMBER: For multifile volumes, this binary field is used in 
positioning to the correct file. 


HEADER SEQUENCE NUMBER: For each file of a multifile set that extends across 


several reels, this binary field is 1 for the first reel of the file and is 
incremented on successive reels. 


RETENTION DATE: Date in binary when this tape may be reused. This field is 
ignored on input. On output the existing date is compared to the current date. 
If the retention date is less, a message is issued and the operator can ignore 
the error or abort the job. The new retention date is calculated by adding the 
retention period to today's date and placing it in the label. 


TAPE DENSITY: Recording density for this tape in bits per inch (bpi): 


- 200 bpi 
- 556 bpi 
800 bpi 
- 1600 bpi 
- 6250 bpi 


NOR N = 
i 


The bits are right justified in the word. This field is set on output tape 
processing. On input, the specified density is used to read the tape. If this 
density conflicts with that specified on the $ TAPE card or the default density, 
a message is written on the execution report. 


RESERVED: Reserved for System use. 
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Label Identifier BEORBKB or BEOFKS 
Block Count Binary or BCD (6 numeric characters) 


User Words (Arbitrary) 


UFAS Identifier 3 alphanumeric characters ~- Db 


Reel Serial Number of 6 characters 
Next reel 

or 
ALL blanks ee ) 


Reserved for System 


Figure 1-22. GFRC End-of-Reel/File Label (CEOR/EOF) 


End-of-Reel/File Label (CEOR/EOF) 


LABEL IDENTIFIER: This field identifies the label as an end-of-file label or 
end-of-reel label, "BEOFBK" or "BEORBB", respectively. 


On input, the occurrence of an EOR Label causes tape switching to the next 
reel. The block count which appears in each trailer Label is checked and if the 
count does not agree with the block count maintained by UFAS an error message is 
given to the operator, who can then either continue execution, force 
end-of-file, or abort the job. After the block count is checked, an EOR Label 
is checked to determine if it contains the number of the next reel of this file. 
If the next reel serial number is present, it is used in the next input file 
header label check. 


When the end-of-tape foil is encountered during the process of writing on 
an output reel, a tape mark is written on the tape. A message is issued to the 
operator requesting the reel serial number of the next sequential reel. The 
operator then types in the reel number as it appears on the tape reel. A 
message is then issued to the operator requesting verification of the reel 
serial number that was previously entered. After verification, this number is 
placed in a message that is written on the user's execution report. The number 
is also placed into the EOR Label to be written on the current reel. The output 
trailer label when written also includes the block count which indicates’ the 
number of data blocks recorded on the file. When the new reel is provided, 
processing is continued. 


BLOCK COUNT: Block count contained in the trailer label is the number of data 
blocks contained on this reel of this file. In the case of a multifile reel, 
the block count is the number of data blocks for the current file only. This 
number is recorded as a 36-bit binary number or a 6-character BCD number 
depending upon the recording mode of the file for the 14-word (GFRC-created) 
labels. A 20-word (CUFAS~created) trailer label always contains a binary number. 


USER WORDS: These words are available for the user program and are bypassed by 
UFAS Label checking. 
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UFAS IDENTIFIER: The first character is a D if the file was written by UFAS. 
This character is a blank in GFRC-created Labels. 


REEL SERIAL NUMBER: For a multi-volume set, this field gives the reel serial 
number of the next tape in sequence and is used on input header checking to 
verify the reel number. 


Same as Beginning (see Figure 
of Tape Label 


ALL Zeros 
Not used 


Same as Beginning Csee Figure 
of Tape Label 


Reel Sequence Number (see Figure 


ALL Zeros 


Figure 1-23. GFRC Partial Tape Label (PTL) 


PARTIAL TAPE LABEL (PTL) 


The corresponding fields are processed as described for the beginning of 
tape Label. 


Label Exits 


Four Label exit points are provided to the user during label processing. 
These four points are: 


e Before Beginning File Label 
") After Beginning File Label 
e Before Ending File Label 

e After Ending File Label 


The user can request control for any combination of the exit points. 
During label processing, control is transferred to the user after UFAS prepares 
a label image. Then, the user may process the label; following completion of 
the processing, control must be returned to UFAS. 


1-43 DC89-03 


User Label processing can include performing any UFAS function on any file 
other than the one for which the exit is specified. If the function causes a 
Label exit to occur, control must be returned to UFAS in the reverse sequence of 
events. For example, Label exit processing for file A includes opening file 8B 
for which there is a beginning label exit. In such a case, file B label 
processing must conclude with a return to UFAS at the file B return point and 
file A label processing with a return at the file A return point. 


UNLABELED GFRC TAPE FILES 


Unlabeled GFRC tape files conform to one of the following: 


e single-file single~volume 
e single-file multi-volume 
) multi-file single volume 


Block serial numbers (BSN) and record control words (RCW) are optional. 
The EXTEND Processing mode is not available for unlabeled GFRC files. 
Records may be segmented (spanned); if so, RCWs must be present. 


The various file arrangements available with Unlabeled GFRC tape are 
illustrated in figure 1-24: 


Single-file Single-~volume 


Single-file Multi-volume 
VOL 1 


VOL 2 user file Part-N 


Single-~volume Multi-file 


* = Tape Mark (TM) 
PTL = Partial Trailer Label 


Figure 1-24. Unlabeled GFRC Tape Arrangements 
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UNLABELED GFRC FILE PROCESSING 


Single File Input Processing 


When a tape mark. is encountered on an unlabeled input single file volume, a 
subsequent read request is interpreted as a request for volume switching to take 
place. It is the user's responsibility to determine the true end of the data, 
for example, by placing a dummy EOF record at the end of the data. 


Multi-File Input Processing 


When a Tape mark is encountered on an unlabeled input multi-~file volume, a 
subsequent read request is interpreted as a request for the first data block 
following the mark. It is the users responsibility to determine the true end of 
the data. If an attempt is made to read beyond the tape mark of the Last file 
of the volume, an erroneous tape condition can result. 


On an unlabeled multi-file volume, the UFAS programmer may specify a file 
sequence number. At file open time, UFAS positions the current volume to the 
beginning of that file. 


Output Processing 


For unlabeled output files, the detection of the EOT foil causes a tape 
mark to be written and unit switching to occur. 


UNLT TAPE FILE FORMAT 


e UFAS processes UNLT unlabeled files on 7- and 9-track tapes. 


e The UNLT tape file format is reserved for a single-file, single-volume 
arrangement. 


@ The files data blocks are automatically blocked one. Block Serial 
Number (BSN) and Record Control Words (RCW) are not applicable. 


) The tape mark is Octal 17 for 7-track and Octal 23 for 9-track tapes. 
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Physical Attributes 


e (> or 9-track tape 

e blocking factor of one 
© FLR only 

e no BSN 

e no Labels 

6 no RCW 

e Binary recording mode 


The file arrangement available with the format is illustrated in figure 


Single-file Single-voLlume 


; user data file * PTL 


* = TM Tape Mark 
PTL = Partial Trailer Label 


Figure 1-25. UNLT Tape File Arrangement 


UNLABELED UNLT FILE PROCESSING 


Single File Input Processing 


It is the user's responsibility to determine the true end of the data, for 
example, by placing a dummy End Of File Record at the end of the data. If an 
attempt is made to read beyond the End Of Tape mark (foil) an erroneous’ tape 
condition can result. 


IBM Tape File Format 


The file and Label formats as well as the processing for IBM tape files are 
identical with those for the American National Standard files, except as noted. 
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PHYSICAL ATTRIBUTES 


e 9-track tape 

e Variable- or fixed-length records (If variable Length, each Logical 
record is preceded by a record control word - record length is in 
binary.) 

e Byte recording mode (Write and read tape 9 - four 8-bit bytes) 

e Labels - (optional, contain EBCDIC characters) 


GENERAL FORMAT - LABELED TAPES 


Volume VOL1 Required 
Header HDR1 Required 
Label Header Labels HDR2 
Group HDR3 Optional 
HDRn 
User Labels UHL1 , 
UHL8 Optional 
Tape Mark ™ Required 
File { Data Block 1 
Data Data Block n Optional 
Tape Mark ™ Required 
EOF1 Required 
Trailer}| Trailer Labels EOF2 
Label EOFS Optional 
Group EOFn 
UTL1 \ 
User Labels UTL8 Optional 
Tape Mark ™ Required 
Tape Mark ™ Required 


GENERAL FORMAT - UNLABELED TAPES 


(TM) Optional 
Data Block 1 

é File 1 
Data Block n 
™ Required 
(TM) Optional 
Data Block 1 

‘ File 2 
Data Block n 
™ Required 
(TM) Optional 
™ Required 


™ = required tape mark 
CTM) = optional tape mark 


7/80 1-47 DC89-O3A 


DATA FORMAT 


A file may contain either fixed-length or variable-length records. Ina 
file with variable-length records, the first four bytes at the beginning of the 
block contain the block~-length field and the first four bytes of each record 
contain the record size. Both the block length and the record size are 
expressed in binary in the first two bytes and zeros in the remaining two. 


Records can be segmented (spanned). The binary segment control code is the 
third byte of the record size field. The segment control values are as follows: 


- segment contained entirely within this block 
first segment 

Last segment 

intermediate segment 


WN-|Oo 
{ 


LABEL FORMATS AND PROCESSING 


Unlike the American National Standard file volumes, all labeled volumes in 
IBM files have only one tape mark at the end, except the last volume which has 
two tape marks. On output, the second file~header Label (HDR2) and the second 
end-of-volume Label (EOV2) or the second end-of-file (EOF2) label are required 
Labels on IBM files, but optional on American National Standard files. 


No optional user-volume labels (UVLn) are permitted. Only file user-header 
and userc-trailer labels CUHL1/UTL1 - UHL8/UTL8) are allowed. 


IBM Volume~Header Label (VOL1) 


| Character 
Position Field Name Contents 


11 
42-51 
80 


IBM First File~Header Label CHDR1) 


| Character 
| Position Field Name Contents 


Accessibility Must be zero 


Owner Identifier 10 alphanumeric characters 


No Version Number Spaces 
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IBM Second File-Header Label (CHDR2) 


Character 
Position Field Name Contents 


Record Format 


~ Fixed Length 
; - Variable Length 
U - Undefined 


Record Length Character count 


NOTE: The content of the second file-header Label CHDR2) record length field 


is 


record length for fixed-length records and maximum record Length plus 4 


(RCW) for variable-length records. 


IBM Second File-Header/End-of-File (CHDR2/E0OF2) 


character Position Field Nane 


Reserved 


File Position 0 - first volume of file 
1 - not first volume of 
multi-~volume 


Job per Job Identifier First 8 bytes - job name 
9th byte - 1 
Last 8 bytes - job step 


Tape Recording Techniquej| 9-track tape - blanks 


Printer Control A - American National Standard 
Characters M - Machine 
b - None 


Reserved Spaces 
Block Attribute B - Blocked 
(Data set format) S$ - Spanned 
; R ~- Blocked and spanned 
Bb - Neither blocked nor 
spanned 


Reserved Spaces 


UFAS UNLABELED IBM TAPE PROCESSING 


The UFAS user can now read and write certain forms of unlabeled IBM-type 
magnetic tape files. The following three forms of IBM unlabeled tape files are 


supported. 
e Single-volume/Single-file 
e Single-volume/Multifile 


® Multivolume/Single-file 
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File Formats 


In the following formats, the beginning tape mark, (TM), is optional on 
| input and output; while the End-of-File tape mark, TM, is required. 


6 SINGLE-VOLUME/SINGLE-FILE FORMAT 
(TM) User File ™ 
e SINGLE~VOLUME/MULTIFILE FORMAT 


(TM) User File = 1 TM (TM) User file - 2 TM (TM) User file - n TM 
© MULTI-VOLUME/SINGLE-FILE FORMAT 

Volume 1 - (TM) User File - 1, Part 1 TM 

Volume n -— (TM) User File =~ 1, Part n TM 


Unlabeled tapes contain no volume Labels, header labels, or trailer labels. 
They contain only data blocks and tape marks. . 


Unlabeled File Processing Procedure 


SINGLE-FILE INPUT PROCESSING 


When a tape mark is encountered on an input single-file volume, the return 
from the Read Command is always to the EOF position specified. The user must 
determine the true end of the data file. A subsequent Read indicates that unit 
Switching is required. 


MULTI-FILE INPUT PROCESSING 


When a tape mark is encountered on an unlabeled input multi-file volume, a 
subsequent Read request is interpreted as a request for the first data block 
following the tape mark. The user must determine the true end of the data file. 
If an attempt is made to read beyond the tape mark of the last file of a volume, 
an erroneous tape condition can result. 


On an unlabeled multi-file volume, a user can specify a file sequence 
number. When a file is opened, UFAS positions the current volume at the 
beginning of the file. The requested file must be on the current volume. 


OUTPUT PROCESSING 


For unlabeled output files, detection of the end-of-tape foil causes a tape 
mark to be written and unit switching to occur. 
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Unlabeled File Data Format 


The tapes are nine-track, with four 8-bit bytes per word. They are 
processed with Tape-9 Read and Write commands. 


A file can contain either fixed-length or variable-length records. Ina 
file with variable-length records, the first four bytes at the beginning of the 
block contain the block~length field; while the first four bytes of each record 
contain the record Length. Both the block Length and the record Length are 
expressed in binary in the first two bytes, with zeros in the remaining two. 
Each Length tally includes the four-byte length field. The variable-length 
record Layout is as follows: 


Bytes~ 01 2 3 7 
B BOO QO User Record - 1 R ROO User 
Record ~- 2 0 0 User Record - n 


Wheres: BB ~- Block Length tally (binary) 
RR - Record Length tally (Cbinary) 


Variable-~length records can be segmented (spanned). The third byte in the 
record length field contains the segment control code (binary). The segment 
control values are as follows: 


- Segment contained entirely within this block 
- First segment 

Last segment 

Intermediate segment 


WN-o 
| 


A file that contains fixed-length records does nat have either block or 
record control bytes. The user must specify the record size, and records cannot 
be segmented. 


UFAS Open Procedures 


SINGLE-FILE INPUT OPEN PROCEDURE 


In opening a single-volume single-file or multivolume single-file file for 
input, UFAS positions to the beginning of the file on the current volume. 
Although beginning tape marks are optional, if two tape marks are encountered 
before a data block, UFAS sets an EOF indicator. A subsequent Read request will 
then cause UFAS to transfer to the user's EOF address. If the file is a 
multivolume file, the user must make sure that the current volume is the first 
volume. 


MULTIFILE INPUT OPEN PROCEDURE 


In opening a multifile file for input, UFAS positions itself to the 
specified file on the current volume. The user must make sure that’ the 
requested file is on the current volume.-: Files can be delimited by either one 
or two tape marks. UFAS proceeds down the volume, counting files until the 
specified file is reached. The first file on a volume is considered file number 
ts 
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OUTPUT OPEN PROCEDURE 


UFAS writes a beginning tape mark for any unlabeled IBM tape file that is 
opened for output, unless the "TPMARK/NO/" option is specified for the file in 
the .U data file. 


EXTEND OPEN PROCEDURE 


In opening a single~volume or multi-volume single-file file for extend, 
UFAS opens the file to a position that permits logical records to be appended to 
the current file. If the file is multi~volume, the user must make sure that the 
current volume is the final volume, i.e., the volume upon which data is to be 
appended. 


A file resident on a multi-~file volume cannot be opened for extend. 


H2000 Tape File Format 


UFAS provides file and content management for H2000 MOD1 and MOD4 file 
formats on 7=- and 9-track tapes. 


H2000/60 Magnetic Tape Interchange Facility 


The 2000/60 Magnetic Tape Interchange Facility is a combination of hardware 
and software components that enable the Series 60 Level 66 user to read and 
write Series 2000 magnetic tape files. 


Tapes to be read or written must be mounted on tape drives controlled by an 
MPC tape controller equipped with Magnetic Tape Interchange. Facility. This 
facility accommodates both GCOS and Series 2000 files. 


User programs that process H2000 with UFAS must allocate tape units with 
either $ TAPE27 or $ TAPE29 control cards. 


PHYSICAL ATTRIBUTES 


e 7- or 9-track tape 
© Variable- or fixed-length records 
) Labels if present - Recorded in binary for MOD1 
- Recorded in BCD for MOD4 
- 80 characters (input and output) 
- 120 characters Cinput only) 
r) Data blocks = Recorded in binary 
r) Character set - HBCD 


C Density - 200, 556, 800, 1600 bpi (no 6250 bpi) 
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GENERAL FORMAT (Labeled Tape Files) 


Single-Volume Multi~Volume 
File File 

Header 1HDRB 1HDRB CIF MOD4) 1HDRB 
Label (Follows 120-character 
Group Label if MOD4) 
File ( Data Data Data 
Data Block Block Block 
Trailer 1EOFB 1EOFb 1EOFB 
Label 1ERIB 1ERIB 1ERI6 
Group 1ERI6 1ERIB 1ERIB 


DATA FORMAT 


A file may contain fixed-length or variable-length records, which may be 
unblocked or blocked, according to format type. Only fixed-length records can 
be blocked. Padding is used to provide an integral number of records for a 
physical block that must have an exact number of records. A padding character 
can have any 6-bit configuration, except zeros. On both input and output a 
padded record is composed only of pad characters. On output, padded records are 
generated to fill a physical block when the Close function is invoked. Padded 
records are not delivered to the user program. For the MOD1 file format, a 
banner character may be used with each physical block to distinguish data 
blocks, Label blocks, and non-data blocks to be ignored (such as_ checkpoint 
information). 


The file format types supported by UFAS are the following: 


MOD1 


AF - Unblocked fixed-length records 

AV - Unblocked variable-length records (without Record or Item character 
counts) 

B - Blocked fixed-length records (padded records allowed) 


1F - Unblocked fixed-length records 

1V - Unblocked variable~lLength records (without Record or Item character 
counts) 

2 ~ Blocked fixed-length records (padded records allowed) 


LABEL FORMATS AND PROCESSING 


The H2000 tape file formats can reside only on a single-file single-~volume 
or on a single~file multi-volume file. 


The name and characteristics of the label fields for the Beginning of Tape 
Label, End-of-File or End-of-Reel Label, and End-of-File or End-of-Reel Label 
Structure are Listed in Figures 1-26, 1-27, 1-28, 1-29, and 1-30. 


1-53 D¢89-03 


' Character 
Position Field Name Contents 


Label Identifier 1THORB 


Tape Reel Serial 5 HBCD characters 
Number or Volume 


Identifier 


File Serial Number 5 HBCD characters followed by minus 


sign tout 


Reel Sequence Number 


3 numeric characters followed by 
blank space 


File Name 10 alphanumeric characters, 


blank filled, left justified 


Creation Date 2 characters (yy) for the year 
followed by 3 characters (ddd) 


for the day of the year 


Retention Period 


3 HBCD characters preceded by minus 
sign and followed by blank space 
where ccc characters are: 

000 cce 999 


Reserved for System 


Figure 1-26... H2000 Beginning of Tape Label (BTL) - 80 characters 


Character 
Position Field Name Contents 


1-6 Label Identifier 1HDRBbB 


Zero followed by 3 numeric 
characters 


Retention Period 


Creation Date 2 characters (yy) for the year 
followed by 3 characters (ddd) 


for the day of the year 


File Name 


10 alphanumeric characters 


File Serial Number 5 HBCD characters 


Tape Reel Serial 
Number or Volume 
Identifier 


5 HBCD characters followed by 
blank space 


Reel Sequence Number Zero followed by 3 numeric 


characters 


Ignored During Header 
Processing 


Figure 1-27. H2000 Beginning of Tape Label (BTL) ~ 120 Characters 
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Beginning of Tape Label (BTL) 


LABEL IDENTIFIER: On input volumes, if the H2000 tape is declared to be 
labeled, UFAS expects a label with an identifier. Absence of a label is 
considered an error and an operator message is generated. The operator can 
accept the reel as valid, mount the correct reel to be processed, or abort the 
job. 


When a file is opened for input and at the beginning of each’ subsequent 
reel of a multireel file, the Label is checked to ensure that the correct reel 
is being processed. The following conditions must be met for an input Label to 
be valid: 


La The file serial number taken from the $ TAPE card must agree with the 
file serial number in the label. This test is bypassed if the $ TAPE 
file control card contains the file serial number 99999, 


cae The reel sequence number taken from the $ TAPE card (default 1) must 
agree with that contained in the label. When reel switching occurs, 
the reel sequence number is incremented. 


5; The file name supplied by the user in the FIB macro must agree with 
the file name contained in the Label. If no file name is supplied 
this test is bypassed. 


If these tests are passed, a message is written to the user's execution 
report indicating tape reel serial number, file code, file sequence number, and 
reel sequence number. 


If any of the preceding tests fail, an operator message is generated. The 
operator may then either accept the reel as valid, accept this reel and all 
subsequent reels as valid, mount the correct reel to be processed, or abort the 
job. 


When an output file is opened and after reel switching, which is automatic, 
the beginning of tape Label is read. This may be a blank reel Label or a header 
Label on which the retention period has expired. (Retention period = date 
created + retention days.) If these conditions are not met, a message is typed 
to the operator indicating the invalid condition. The operator may accept the 
reel as valid by entering the correct reel serial number, removing the reel and 
mounting a new one, aborting the job, or ignoring the retention period. 


TAPE REEL SERIAL NUMBER: The serial number or volume identification of the 
physical tape reel. This number is marked externally on the reel itself. 


FILE SERIAL NUMBER: The tape reel serial number of the first reel of the file. 


REEL SEQUENCE NUMBER: The number of the reel within a given file. For example, 
the first reel of a file is reel 001, the second is O02, etc. 


FILE NAME: Ten BCD characters, left justified, giving the user-defined name of 
this file. 
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CREATION DATE: Year and day of year that the tape was created. 


RETENTION PERIOD: Number of days before this tape may be reused. This field is 
ignored on input. On output, the retention date is compared to the current 
date. If the retention date is greater than current date, a message is issued 
and the operator can ignore the error or abort the job. The retention date is 
calculated by adding the retention period to today's date. 


RESERVED: Reserved for System use. 


Character 
Position Field Name Contents 


Label Identifier 1EOFB or 1EORB 


Block Count : 5 numeric characters 
Record Count 10 numeric characters 


Hash Total or File (Arbitrary) 
Name 


Reserved for System 


Figure 1-28. End-of-File/Reel Label (CEOF/EOR) - 80 Characters 


Character 
Position Field Name Contents 


Label Identifier 1EOFB or TEORB 


Ignored During Trailer 
Label Processing 


Block Count 6 numeric characters 


Ignored During Trailer 
Label Processing 


Figure 1-29. End-of-File/Reel Label (EOQF/EOR) - 120 Characters 


End-of-File/Reel Label CEOF/EOR) 


LABEL IDENTIFIER: This field identifies the label as an end-of-file label or an 
end-of-reel Label, "1EOFB" or "“1TEORB", respectively. 


On input the occurrence of an EOR Label causes tape switching to the next 
reel. The block count which appears in each trailer Label is checked and if the 
count does not agree with the block count maintained by UFAS an error message is 
given to the operator, who can then either continue execution, force 
end-of-file, or abort the job. 
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When the end-of-tape foil is encountered during the process of writing on 
an output reel, a 1EORB output trailer label is written. When the new reel is 
provided, processing is continued. 


BLOCK COUNT: Block count contained in the trailer Label is the number of data 
blocks contained on this reel of this file. In the case of a multireel file, 
the block count is the number of data blocks for the current reel only. 


RECORD COUNT: Number of data records on the reel. For unblocked records, this 


value is the same as the block count. For blocked records, this value does. not 
include pad records. 


HASH TOTAL OR FILE NAME: Ignored on input. On output, contains file name from 
the FIB. . 


End~of-File/Reel Label Structure 


MOD1 Codd parity labels) 

1E0F 

or TERI 1ERI 
1E0OR 


MOD1 or MOD4 (Ceven parity labels) 
1EOF 


or ™ TERI 1ERI 
1EOR 


‘Optional 


Figure 1-30. End-of-File/Reel Label Structure 


UFAS recognizes and processes any of the label structures Listed for input 
and always builds an end-of-file/reel group Label as indicated for output. 
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Unlabeled Tape Files 


Magnetic tape file Labeling is optional for UFF, IBM, H2000, and GFRC, but 
required for American National Standard. The first and last blocks (control 
intervals) of an unlabeled tape reel are processed as data. Nothing follows the 
last block on H2000 UNLABELED files; however, GFRC files are followed by a 
dummy Trailer Label. It is the user's responsibility to determine EOF on 
UNLABELED H2000 tapes. Processing of both unlabeled and labeled files is 


identical in every respect but one: volume and file label processing is bypassed 
on unlabeled files. 


Processing Functions 


The UFAS functions for record processing are grouped by file organization 
and file format in Tables 1-1, 1-2, and 1-3. In addition to the functions to be 
performed, these tables also list the respective processing mode, and access 
mode with the applicable parameters. 


Table 1-1. Sequential File Functions 


F, ANSS H2000, GFRC, and IBM Sequential Files 


| secess nose 
Processing Parameters 
Function Mode Sequential 


| cvose Fee See 


®"american National Standard 
bapplies only to UFF on mass storage. 


SExtend processing mode is neither applicable to GFRC 
files on mass storage nor to H2000 files. 
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Table 1-2. Relative File Functions 


UFF Relative Files 


Access Mode Parameters 


Processing Sequential Random Dynamic 
Function Mode 


WRITE Next Record 
REWRITE 1/0 Current Record 


INFO 0, 1, 1/0 | File-zD File-ID 


oS 

x 

ae 

. ia 
me 

~ 

So 


OPEN 


START 


La be 
x * 


READ 


/0 
1/0 
1/0 

/0 


I 


i 
x 
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Table 1-3. Indexed File Functions 


UFF Indexed and ISP Files 


Access Mode Parameters 


Processing Sequentia Random Dynamic 
WRITE Next Record 
REWRITE Current Record 


Key of CInvalid) Key of 
Reference? Reference? 


I, 1/0 Next Record CInvalid) Next Record 


(Invalid) Key of Key of 
Reference? Reference? 


File-ID File-ID File~ID 


1/0 File-ID File-ID 


Laas) 
~ 
Oo 


- 
x 
_ 
~ 
So 


DELETE 


H 
~ 
oO 


START 


CLOSE 


Oo mR 

y @ x 

og 

i) H 

» ~ 
oO 


4applies only to UFF indexed files 
bPrime key for ISP files 
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FILE PROTECTION AND CONCURRENT ACCESS CONTROL 


File protection and concurrent access control is allowed onty for files 
that are allocated as random; that is, all UFF file organizations and the ISP 
file format. When a file is protected by the File Management Supervisor (FMS) 
ABORT/ROLLBACK/ facility, images of pages (control intervals) are written to a 
disk collection file under supervision of FMS before they are altered (Befores). 
If the FMS ACCESS/MONITOR/ is specified during concurrent execution of user 
programs, simultaneous access to a page by two or more programs can be denied to 
prevent a deadlock. 


During such an occurrence, changes to the file are cancelled and the 
program is rolled back. If a checkpoint was not specified, the program is 
aborted; if a checkpoint was specified, the activity is restarted. 


If any file in the activity has File Management Supervisor (FMS) 
ABORT/ROLLBACK/ protection, all permanent files allocated for random update must 
have ABORT/ROLLBACK/. Otherwise, the activity is aborted by UFAS when the first 
unprotected file is being opened. Exceptions to this rule are the files that 
have the character “S" as the first character of the file code. Such files do 
not require ABORT/ROLLBACK/ when using ACCESS/MONITOR/ protection; however, 
only file checkpoints can be taken and automatic job restart of these "S" files 
is not possible if they conflict with other jobs. 


If any file in the activity has FMS ACCESS/MONITOR/ protection, UFAS 
performs ACCESS/MONITOR/ functions on all UFAS files. That is, on a checkpoint, 
all buffers and record pointers are set empty after they are wiped out. 


After any of the following conditions, current record values. are 
eliminated: 


© Checkpoint files and files with ACCESS/MONITOR/ present 

e Checkpoint files and programs and files with ACCESS/MONITOR/ present 
) Rollback files 

e Rollback files and programs, and files with ACCESS/MONITOR/ present 


ALl control intervals (pages) accessed before a checkpoint are released 
(not monitored by FMS); therefore, the record pointer values are not valid. 


To continue a series of Get Next functions after one of the four preceding 
conditions it is necessary to: 


5 Save the key value of current record prior to execution of a 
checkpoint or rollback. 


2a Execute a Position macro greater than the saved key value after the 
checkpoint or rollback. 


3. Continue the Get Next function sequence. 
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When using concurrent access, control interval size must be specified to 
the File Management Supervisor in the PAGESIZE option. With the TSS Access 
subsystem, control interval size can be specified by using the PAGESIZE option 
for the File Create and File Modify directives in the short form. The PAGESIZE 
(number of words ina page) specified must correspond to the control interval 
size. 


BUFFER POOLING 


Buffer pooling can only be requested for UFF relative, indexed, and 
integrated files. A $ DATA control card must be used to specify the buffers to 
be pooled (see Appendix A). Pooling can be designated for specific files or for 
all files of a particular type, such as I-D-S/II. 


TRANSLITERATION TABLES 


The input and output transliteration tables may be either system or 
user-supplied tables and are used to transliterate the characters of a record 
from the external code set to the internal code set or vice versa. 


The transliteration tables available have the following designations: 


Name Character Set 
U.GTOA GBCD to ASCII 
U.GTOH GBCD to HBCD 
U.GTOE GBCD to EBCDIC 
U.ATOH ASCIi to HBCD 
U.ATOG ASCII to GBCD 
U.ATOE ASCII to EBCDIC 
U.HTOA HBCD to ASCII 
U.HTOG KHBCD to GBCD 
U.HTOE HBCD to EBCDIC 
U.ETOH EBCDIC to HBCD 
U.ETOG EBCDIC to GBCD 
U.ETOA EBCDIC to ASCII 


With GMAP, the user must supply a symbol reference for the desired tables. 


A user~supplied transliteration table must have the following format: 


e 9-bit bytes (4 characters per word) 
e Characters right justified within each byte 
e Octal code in ascending numerical order 
e Maximum table size is 128 words (512 bytes) 
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SECTION II 


UFF, ANS, GFRC, AND IBM 
SEQUENTIAL FILE ORGANIZATION 


A sequential file can contain either variable-length or fixed-length 
records on mass storage and 7- or 9-track tape devices. However, these files 
can be accessed only sequentially. All functions available for the file formats 
of the sequential organization are Listed with their respective macros in Table 
2-1. Some of these functions are applicable only to UFF and GFRC files on mass 
storage as noted. Files are opened, processed, and closed by UFAS in response 
to a FIB macro and specific functional macro requests. 


The processing mode to open a sequential file can be output, input, 
input/output, and extend. Opening a file for input/output assumes that the file 
is on a mass storage device and that existing records can be replaced and 
updated on the file. For extend, positioning takes place so that the first 


record written is the next logical record following the Last current logical 
record. 


Table 2-1 Lists the sequential file functions, the functional macros, the 
processing modes, and the access modes with applicable parameters. 
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Table 2-1. Sequential File Functions And Processing Modes 


UFF and GFRC 


Access Mode 
Functional Processing Parameters 


Function | Sequential 


Next Record 


Specified 
Record 
Checkpoint 

| Files DCKPF /0 


theckoount 
Files and 
Program® DCKPT 1/0 


Rollback 
Files and 
Program DROLP 


| Rollback | 
Files DROLF /0 


a 
Applies only to files on mass storage 


Be xtend processing mode is not applicable to GFRC files on 
mass storage 


Cc. 
Applies only to UFF on mass storage 


Soutput applies only to UFF Sequential and GFRC 
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FILE INFORMATION BLOCK MACRO 


The file information block macro provides the user with an efficient means 
of communicating to the Unified File Access System the specific characteristics 
of a file. However, before any communication can be established with UFAS, the 
user must invoke the macro package with the command LODM .DMAC. 


ALL file processing information between the user and UFAS is channeled 
through the FIB macro. For each file to be accessed, only one FIB macro may be 
coded in the user program to define the characteristics of the file and the 
required processing parameters. 


Format 
The FIB macro for a sequential file has the following format: 


FIBMAC fc,ffi, Cparameter-name-1,parameter-value-1,..., 

parameter-name-n,parameter-value-n] 
where: 

fc - file code assigned to file 

ffi- file format indicator (optional) 

Multiple parameter-name and parameter-value combinations constitute a 
keyword-argument arrangement. These combinations may appear in any order within 
the brackets. If a combination of parameter-name and parameter-value is 


omitted, a default value is assumed. If the number of combinations exceeds one 
Line, an ETC card must be used to continue on the following Line. 


Only two parameter-values are required for the process area, file status 
code, and file name, but three are required for the retention period. Also, no 


symbol that defines an address can be repeated in another FIB macro. In order 
to repeat the same address in more than one FIB macro (e.g., a common process 
area) multiple symbols defining the same address must be used. Default values 


should not be specified for parameters that are not required, instead allow the 
default value to be applied automatically. 


File Format 


File Format Indicator 

UFF UFF (Default format) 

American ANSI 

National 

Standard 

GFRC GFRC 

IBM IBM 

Unlabeled GFRC UNLT CUFAS assumes GFRC format - 1 record/block) 
Tape 
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The following 
defaults which are applied 


Parameter 


Number of 
buffers 


allocated by 


USAF 


Record size 
in bytes or 
characters 


7/80 


Name 


NBUF 


RSZ 


contains alt 


2-4 


the 


Value Default 
Integer < 255 1 
(mass storage) 
Integer < 2 
(tape, P* or I* 
files) 
N 
CTsSZ 
8 
12 
2 
Integer <n 
Maximum 80 
n=9999 
bytes 
Maximum 80 
n=2 -—1 
characters 
84 
Maximum 84 
n=24570 
characters 
Maximum 80 
n < 16128 
bytes 
Maximum 
n=2 <-14 
bytes 


parameters and their respective 
if the parameter name and value are not specified: 


Comments 


For files residing on tape 


For files residing on mass 
storage 


If CISZ parameter is speci- 
fied: 


N = 16384 bytes (4096 words) 
for UFF files or 24576 char- 
acters (4096 words) for GFRC 
files 


If CISZ parameter is not 
specified: 


For UFF files 


For GFRC files 
For P* or I* files 


Maximum record size if 
records are variable length 
(IFLR parameter = 0); 
actual record size if 
records are fixed Length 
CIFLR parameter = 1). 


UFF, American National 

Standard, and IBM tape 

files, when records are 
not spanned. 


UFF, American National 
Standard, and IBM tape files 
when records are spanned. 


GFRC files when records 
are partitioned. 


GFRC files when records 
are not partitioned. 


UFF (non-partitioned mass 
storage files) 


UFF Cpartitioned mass 
storage files) 
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Parameter 


Record size 
word 


Record size 
error 
indication 


Control 
interval 
size in 
9-bit bytes 
or 6-bit 
characters 


Name 


RSZWRD 


IRSZER 


CIsz 


Value 


Address 


Integer n 


Maximum 
n=16128 
bytes 


Maximum 
n=1920 
characters 
n=1280 
bytes 


Maximum 
n=16380 
bytes 


Maximum 
n=24570 
characters 
n=16380 
bytes 


Default 


2048 


1920 
1280 


16380 


24570 
16380 


2=5 


Comments 


Location of a 36-bit binary 
record size field used as a 
subordinate to the VIB 
record size field. UFAS 
returns the record size to 
this field on input. On 
output, the record size 
provided in this field is 
used when no record size is 
provided with DLPUT macro. 


If no record size word is 
specified, either VIB or 
FIB record size is used. 


Indicates the action UFAS is 
to take when conflict occurs 
between the actual record 
size and that specified by 
the user in RSZ or RSZWRD, 
or the VIB record size. 


Record size conflicts are 
ignored. The smallest actual 
record size or FIB record 
size is used as the correct 
record size. 


Execute the error procedures 


specified by the USERER 
or ERRTBL parameters. 


UFF (mass storage) 


GFRC (mass storage): 
for BCD data 


for ASCII data 


UFF, American National 
Standard, and IBM tape files 


GFRC (tape): 
for BCD data 


for ASCII data 
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Parameter 


External 
code 


Internal 
code 


Name 


EXTCOD 


INTCOD 


Value 


ASC 

EBCD 
GBCD 
HBCD 


JIS 


BIN 


ASC 
EBCD 
GBCD 
HBCD 
JIS 


BIN 


Default 


ASC 


ASC 


Comments 


Code set of the data on the 
external device. This code 
is used with the CISz 
parameter to calculate the 
number of words to allocate 
per buffer. Also, used with 
the internal code set 
parameter to establish the 
size of the characters 
within the record and the 
process area, so that the 
records may be converted to 
this code set as they are 
moved to the buffer. 


NOTE: UFF files may 
specify either ASCII 
or 36-bit binary as 
the external code 
set. If ASCII is 
specified, then the 


internal code set 
may be any of those 
Listed, except 


36-bit binary. If 
the external code 
set is 36-bit 
binary, then the 
internal code set 
must be 36-bit 
binary. 

ASCII character set. 

EBCDIC character set. 

GBCD (GFRC BCD). 

HBCD (Honeywell BCD). 


JIS (Japanese Industrial 
Set). 


36-bit binary CUFF only) 
Code set of the data in the 
process area. Records are 
converted to this code 

set as they are moved to the 
process area. 

ASCII character set. 

EBCDIC character set. 

GBCD character set. 

HBCD character set. 


JIS character set. 


36-bit binary CUFF only) 
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Parameter Name Value Default Comments 


Checkpoint CHKPT Integer <2” cai | Checkpoints are taken 
every time this many 
records are accessed. 


0 No checkpoints are taken 
based on record count. 


Process PROAR Address, Location and starting char- 

area character acter or byte position of an 
area within the user program 
to which records are moved 
and from which they are 
retrieved with Put and Get 
macros. For GFRC files 
character position is as- 
sumed to be zero. The size 
of the process area is as- 
sumed to be equal to the 
FIB record size. If this 
parameter is not specified, 
the in-place processing 
parameter must be specified. 


In-place INPLAC Address Location of a 24-bit word 

processing and byte address used to 
hold a record address or the 
address of the next record 
area within the buffer. When a 
Get macro is issued, UFAS 
stores the address of the 
record in this location. On 
output, at the completion of 
each Put macro, and, on open, 
the address of the next 
record area in the buffer is 
stored in this Location. If 
this parameter is not speci- 
fied, the process area para- 
meter must be specified. 


NOTE: This parameter applies 
only to GFRC, UFF, 
and IBM file formats. 


File status FSCODE Address, Location and starting byte 
code character position of a two-byte 
ASCII file status code field 
in which UFAS stores a unique 
status code whenever an ex- 
ception condition occurs (see 
Section VIII). 


User Label LABAR Address, Location and starting char- 

process character acter or byte position of an 
area within the user program 
to which User Label records 
are moved to or retrieved 
from during User label 
processing. This parameter 
must be present for ANS, 
UFF, and IBM tape files with 
user Label processing. 


0,0 No file status code field. 
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Parameter 


User error 
procedure 


Error table 


Input 
translitera- 
tion table 


Name 


USERER 


ERRTBL 


INPTRN 


Value 


Address 


Address 


Address 


Default 


Comments 


Location of user-supplied 
error procedure to which 
UFAS transfers control when- 
ever an error is detected. 


No user error procedure. 


Location of user~supplied 
table of error procedures 
based on processing mode. 


The format of the error 
table is: 


word O, bits 0-17: address 
of error procedure for files 


in output mode. 


word 1, bits 0-17: address . 
of error procedure for files 


in input mode. 


word 2, bits 0-17: address 
of error procedure for files 


in input/output mode. 


word 3, bits 0-17: address 
of error procedure for files 


in extend mode. 


(bits 18-35 of each word are 
reserved.) 


When an error is detected, 
control is transferred to 
the appropriate error pro- 
cedure only if the user 
error procedure parameter is 
not specified. If neither a 
user error procedure para~ 
meter nor an error table 
parameter is specified, UFAS 
aborts when an error is 
detected. 


No user error procedures 
based on processing mode. 


Location of a system or 
user~supplied tabie. 

This table is used to 
transliterate the characters 
of a record from the 
external code set to the 
internal code set, as the 
record is moved from the 
buffer to the user's pro- 
cess area. Unless a process 
area parameter is specified, 
this parameter is ignored. 
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Parameter 


Output 
translitera- 
tion table 


File code 
List 


Name Value Default 


0 


OUTTRN Address 


FCLST Address 


2-9 


Comments 


Transliteration not 
required. Records are 
moved from the buffer to 
the user's process area 
Cif specified) without 
transliteration. In this 
instance, the internal and 
external code sets are 
usually the same. 


Location of a system or 
user~supplied translitera- 
tion table. This table is 
used to transliterate the 
characters of a record from 
the internal code set to the 
external code set, as_ the 
record is -moved from the 
user's process area to the 
buffer. Unless a process 
area parameter is specified, 
this parameter is ignored. 


Transliteration not reo 
quired. Records are moved 
from the user's process area 
Cif specified) to the buffer 
without transliteration. In 
this instance, the internal 
and external code sets are 
usually the same. 


If the file resides on more 
than one volume, this para- 
meter defines the location 
of a List of file codes 
assigned to the second and 
succeeding volumes of the 
file. This parameter applies 
only to mass storage files. 
The format of the file code 
List iss 


word 0, bits 0-35: number of 
file codes in the List, in 
binary. 


word 1-n, bits 0-17: re- 
served. 


bits 18-35: file 
code in ASCII. 


Only one file code is 
assigned to the file. 
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Parameter Name 


Media code MEDCOD 


Block IBSN 
serial 

number 

indicator 


Fixed- IFLR 
Length 

record 

indicator 


Optional file IOPTFL 
indicator 


Value 


oo ONO OW 


10 
13 


Default 


Comments 


Applies only to GFRC files. 
Not a media conversion 
record or no printer slew 
controls. 

Binary card image. 

BCD card image. 

BCD print line image. 

GFRC format in ASCII. 

ASCII print line image. 

TSS information record. 

BCD print line image with 
report code as first two 
characters of a logical 
record. 

ASCII card image. 

ASCII print Line image with 
report code as first two 
characters of a_ logical 
record. 

Applies only to UFF (tape), 


American National Standard, 
and GFRC files. 


Block serial numbers are 
used. 


Block serial numbers are 
not used. 


American National Standard 
files. 


Applies only to UFF, 
American National Standard, 
IBM, and GFRC tape files. 


Records are variable 
Length. 
Records are fixed Length. 


Applies only to sequential 
files open for input. 


File must be present. 


Actual file may or may not 
be present when file is 
opened. If not present, 

the first Get macro results 
in an end-of-file condition. 
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Parameter Name Value Default Comment 


Multifile IMULTF Applies only to labeled 
indicator tape files and IBM and 
UFF unlabeled 


0 0 File does not reside on 
multifile volume set. 


1 File resides on multifile 
volume set (cannot be used 
with open extend). 


Partitioned/ IPARRC Applies to UFF, American 
spanned National Standard, and IBM 
record tape files as well as GFRC 
indicator and UFF mass storage files 
0 0 File does not contain 
partitioned/spanned 
records. 
1 File contains partitioned/ 
spanned records. | 
Recording IRMODE Applies only to GFRC 
mode tape files 


indicator 


0 0 Recording mode is binary. 

1 Recording mode is BCD. 
File FILSEQ Applies only to Labeled 
sequence input tape files and IBM 
number and UFF unlabeled 

0 0 Tape is already 


positioned to beginning 
of next file. 


Integer < 512 Sequence number of the file 
on a multifile volume set 


File name FLNAME Address, Applies only to labeled 
in ASCII character files 


Location and starting byte 
position of file name. 
File name (in ASCII) is 17 
bytes for UFF, American 
National Standard and IBM 
files, 12 bytes for GFR 
files. 


0,0 No file name is provided. 


If parameter is not required, 
allow default to be assumed. 
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Parameter 


Retention 
period 


Label 
exit 
table 


Name 


RETPER 


LBLEXT 


Value Default 
Address, 
character, 
Length 
0,0,0 
Address 
2-12 


Comments 


Applies only to Labeled 
files. 


Location of starting byte 
position and length of 

the retention period field 
(maximum of three bytes). 


No retention period is 
provided. If parameter 
is not required allow 
default to be assumed. 


Applies only to labeled ANS, 
UFF, IBM, or GFRC tape files. 
If this parameter is speci-~ 
fied control is transferred 
to the appropriate Label 
procedure. 


Location of a table con- 
taining user-supplied 
Label procedures. 


The format of the GFRC 
table is: 


word 0, bits 0-17: address 
of before beginning file 


Label procedure; user 
receives control after Label 
is read, but before it is 


checked. 


word 1, bits 0-17: address 
of after beginning file 
Label procedure; user 
receives control after label 
is checked. 


word 2, bits 0-17: address 
of before ending file label 
procedure; user receives 
control after label is 
read, but before it is 
checked. 


word 3, bits 0-17: address 
of after ending file Label 


procedure; user receives 
control after Label is 
checked. 


(bits 18-35 of each word 
are reserved.) 
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Parameter 


Value 


Default 


Comments 


For GFRC files when control 
is transferred to the user, 
index register 1 contains 
the FIB address of the file 
and index register 2 contains 
the address of the buffer 
containing the label. Index 
register OQ contains the 
return address to UFAS which 
the user may use upon 
completion of the Label 
procedure to allow UFAS to 
continue, if the return 
macro CUFSRET) is not used 
instead of register QO. 


The format of the ANS, UFF, 
and IBM Table is 12 words 

in Length. Bits 18-35 of 
each word are reserved. ALL 
12 words must be present and 
bits 0-17 must be zero if 
the exit is not desired. 
Bits 0-17 contain the ad- 
dress of the User Label 
procedure to be performed. 
The exit functions are as 
follows: 


Word 1 ~- Input User Header 


Labels 

Word 2 ~ Input User Volume 
Labels 

Word 3 - Output User Header 
Labels 

Word 4 - Output User Volume 
Labels 

Word 5 - Extend User Header 
Labels 

Word ~ Extend User Volume 


6 
Labels 
Word 7 - Input User EOF 
trailer labels 
Word 8 - Input User EOV 
trailer Labels 
9 - Output User EOF 
trailer labels 
Word 10 - Output User EOV 
trailer labels 
Word 11 - Extend User EOF 
trailer Labels 
Word 12 - Extend User EOV 
trailer Labels 


Word 


No user Label exit 
procedures. 


DC89-03 


Parameter 


Label 
indicator 


Rules 


Name Value Default Comments 


ILABEL Indicates the presence 
or absence of file labels. 
(Applies only to UFF files 
on mass storage, plus GFRC 
tape and IBM tape files. 


0 0 File contains tabels. 


1 File is unlabeled. 


The file information block has several assigned fields. If a field is 
not applicable to a particular situation, it is ignored. Fields’ that 
are set in a conflicting manner cause an error to be generated. 


If media code is not zero, a process area is required. 


If system transliteration tables are required, the parameter values 
for the input CINPTRN) and output (COUTTRN) transliteration tables must 
be the SYMREF of the tables. If a user~supplied transliteration table 


is used, the INPTRN and OUTTRN values are the addresses of the 
respective tables. 
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FUNCTIONAL MACROS 


Even though each one of the functional macros available performs a specific 
function and has its own format and set of rules, which are described separately 
in detail, certain conventions and rules are common to all functions. 


The Open and Close macros contain the information that is necessary to open 
or close one or more files with one statement. A common FIB List is built and 
is used by all files to be either opened or closed. The user can either reserve 
space in the program for the FIB List, or can allow the List to be built by the 
macro. 


In order to execute a functional macro, informatjion pertinent to the 
function must be supplied in a variable information block (VIB). The VIB 
address parameter specifies where the variable information is to be _ located. 
This parameter may be either zero or omitted if no parameters are required. If 
parameters are required, the user supplies values in the macro parameter fields 
to indicate the values to be entered in the VIB for execution of the function. 


Parameters are expressed in pairs containing a keyword and value. Commas 
must be used to separate each parameter name from the parameter value and two 
consecutive pairs of parameters. Parameter names ending in "I" indicate an 
indirect reference to the parameter value. Parameters may be specified in any 
order. If a parameter and its value are omitted, the default value is assumed. 


Normally, registers are saved when UFAS is entered and restored when UFAS 
returns control to the user, except index register 1 which is the transfer 
register. The only exception is when a user error or label exit procedure is 
entered. In this instance, the user registers are not restored because UFAS is 
relinquishing control only temporarily to allow the user to process the 
exception condition. When control is returned to UFAS (Cat the completion of the 
error or label procedure), the saved registers are still valid. 
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Open Macro = DOPEN 


Function 


The Open macro initiates the processing of one or more files, verifies 
their existence, and establishes tables for file processing. DOPEN consists of 
the following four functions: 

1% Single~Open/User-Defined FIB List 

= Single~Open/Macro~Defined FIB List 


2 
Be Multiple-Open/User-Defined FIB List 
4 


Multiple-Open/Macro-Defined FIB Lists 
SINGLE-OPEN/USER~DEFINED FIB LIST 
Format 
DOPEN} FIBLS,address of FIB List , Uparameter-name-i, 
FIBLSI,address of pointer to FIB List 
parameter-value-1,...,parameter-name-n,parameter-value-n] 
NOTE: FIB List must be defined as Block Starting Symbol (BSS) 3. 
The parameters and respective defaults for this function are as follows: 
Parameter Name Value Default Comments 
FIB address Required 


Location of FIB for file 
to be opened. 


FIBA Address Location of FIB. 
FIBAI Address Location of pointer to FIB. 
Routine Required 
package Location of a UFAS symbol 
SYMREF reference (SYMREF) that 
name corresponds to a set of 
routines used to process 
the file. 
SYM Routine Package of routines needed 
package to process the file. 
SYMREF 
name 
SYMI Address Location of the pointer 


to the routine package. 
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Parameter Name Value Default Comments 


Processing Optional 
mode 
indicator 


MODE OT OT Output 
IN Input 
10 Input/Output Capplies only 


to files on mass storage) 


EX Extend (does not apply to 
GFRC on mass storage) 


MODEL Address Location of processing mode 
indicator (2 ASCII uppercase 
characters in bits 0-17) 


‘Rewind Optional 
indicator Applies only to tape files 
REW Y Y Rewind on open 
N Do not. rewind on open 
REWI Address Location of rewind 


indicator, in uppercase 
ASCII, with either Y and 
blank or N and blank in 


bits 0-17 
User-Supplied Optional 
EOF character Applies only to TSS 


input (default is 
carriage return) 


EOFCHR Integer 13 User-supplied EOF 
character 


EOFCHRI Address Location of EOF 
character in bits 0-35 


Routine Package SYMREF Name 


The Unified File Access System is a flexible system that allows the user to 
utilize the whole system or just portions of the system that are applicable to 
the format of the file to be processed. In order to select the UFAS routines to 
be Linked at load time, the user must supply a SYMREF (directory) name for the 
specific set of routines desired. Table 2-2 Lists the file format 
characteristics and the corresponding directory names. . 
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Table 2-2. Sequential File Format Directories 


File Format Access Processing | Directory Name 
Mode Mode CSYMREF) 


GFRC 

FLR Process Area Sequential 
FLR no Process Area Sequential 
VLR Process Area Sequential 
VLR no Process Area Sequential 
Printer Formatted Output Sequential 
FLR Sequential 
VLR Sequential 
VLR Sequential 


.DFLPO 

.DFLNO 

.DVLPO 

.DVLNO 

.DPRNT 
-DFLRI|/.DAFPI, 
.DVLRI /.DAVPI 
.pvr04 


HHRPOOOCOCO SO 


American National Standard 
FLR/VLR Sequential — DAFIN/.DAAPF® 
FLR/VLR Sequential ~DAFOT 


Sequential ~DIFIN/.DAIPF® 
FLR/VLR Sequential -DIFOT 


Sequential (mass storage) | Sequential I,1/0,0,Ext -DSEQ/.DASPI © 
Sequential Sequential q: .DUTPI® 
Sequential Sequential 0 -DUTPO 

“Uses tape and media code zero 


b 
Uses tape and mass storage 


c. F ide ees = es" Bae ty. 5. fo wht 
Uses tape or mass storage and media codes 3, ¢7, ii, and 15 Coctai)d 


d 
Uses mass storage only 


e s 2 . 
Includes routines for positioning function 
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Rules 


The Open macro must be executed before the execution of any 
input/output statements for a file. 


After the initial execution of an Open macro for ae file, each 
subsequent DOPEN for this file must be preceded by the execution of a 
Close macro. 


Open output allows file creation. Open input allows an existing file 
to be read. Updating of an existing file requires opening for input 
or output processing. Adding records to an existing file requires 
opening for extend processing. 


The Open macro does not obtain or release the first data record. 


For files being opened for input or input/output, the DOPEN 
establishes the current record pointer so that the first data record 
in the file can be accessed. 


For files opened in the extend mode, the file is positioned 
immediately following the last current logical record. Subsequent 
write statements add records to the file as though the file was opened 
for output. 


For files opened for output, the current record pointer is initialized 
to point to the beginning of the user's data area in the logical data 
space. 


The I/0 processing mode applies only to mass storage files. 


The extend processing mode applies only to sequential single files 
Csingle- or multi-unit). 


Open Label processing and file positioning takes place as follows: 


ae When a sequential file is opened for output, standard header 
Labels are written. 


b. When a sequential file is opened for input, header tLabels are 
checked. 
Cw When a sequential file is opened for extend: 


Beginning file label or unit label is processed for input. 
Existing ending file Label is processed for input. 


Ending file label is deleted and processing proceeds as though 
the file was opened for output. 
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d. When a file on a multifile volume is to be opened, the _ file 
sequence number in the FIB and the rewind indicator in the FIB 
List are used to position as follows: 


If the file sequence number is zero and no rewind is specified, 
then the reel is assumed to be already positioned at the 
beginning of the file desired (Cinput) or at the end of the 
previous file (output). 


If the file sequence number is zero and rewind is specified, then 


positioning is made to the beginning of the reel Cinput and 
output). 


If the file sequence number is "n", positioning is made to the 
beginning of file number "n" Cinput) or at the end of file "n" 
Coutput). The end of file "n" is specified by file sequence 
number "nt+1". 


10. If in-place processing is specified, the Open macro returns” the 
address of the first record area in the buffer to the location 
specified by the in-place parameter. 


Example 


Open a GFRC file with fixed-length records for output. This Open macro 
contains the address of the FIB List (LIST) in which the FIB address (FIB), 
directory (SYMREF) name (.DFLPO0), and processing mode is stored. Note that the 
MODEI parameter references a tlocation that contains the processing mode 
indicator "OT". Because the rewind indicator is omitted, the file is rewound 
before opening (default). 


1 8 16 
LOOM -DMAC 


SYMREF .DFLPO 
DOPEN FIBLS,LIST, CFIBA,FIB,SYM,.DFLPO,MODEI,ACCMOD]J 


LIST BSS 3 
FIB FIBMAC GO,GFRC, CIFLR,1,PROAR,CARD,0,RSZ,80] 


ACCMOD UASCI 1,0T 
CARD BSS — 20 
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SINGLE-OPEN/MACRO-DEFINED FIB LIST 


This function initiates processing of only one file. It builds a FIB List 
in the user program immediately following the DOPEN command, and = storage is 
allocated automatically. 


Format 


DOPEN ,, Cparameter-name-1,parameter-value-1,...,parameter-name-n, 


ETC parameter-value-nj 
The following parameters and respective defaults apply. 
Parameter Name Value Default Comments 


Same as Single-Open/User-Defined Function. 


Rules: 


1. Do not supply FIB List address. 
ae Left bracket must be preceded by two commas. 
3 ALL other rules that apply to the Single-Open/User-Defined Function. 


MULTIPLE-OPEN/USER-SUPPLIED FIB LIST 


This function initiates the processing of from one to n files. It builds 
one FIB List, which is used by all files. 


Format 


DOPEN FIBLS, FIB List address, (C*, FIB address, mode, 
ETC rewind indicator, symref name, *, FIB address 2, 


ETC mode 2, rewind indicator 2, symref 2,....1 
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The following parameters and respective defaults apply: 


Parameter Value Default Comments 
FIB Address Address Required: location of FIB for files 
to be opened 
PROCESSING 
MODE OT OT Output 
IN Input 
10 Input/Output Capplies to mass 
storage) 
EX EXTEND (does not apply to GFRC on 
mass storage) 
REWIND Y Y Rewind Option 
Indicator 
N DO NOT REWIND ON OPEN 
Routine 
Package symref name Required; package of routines needed 
to process the files 
Rules: 
Ve Space for FIB List must be defined as 1+#2n words where n is the number 
of files to be opened. 
a¢ Each List of parameters for every file must be preceded by an *. 
I Key words must not appear within the brackets. 


4. Parameters must be Listed in predefined order. Defaults may be taken; 
however, if they are, the subsequent comma must be used. 


Ds ALL other rules that apply to the Single-Open/User-Defined Function. 
MULTIPLE-OPEN/MACRO~DEFINED FIB LIST 


This function initiates processing of from one to n files. It builds one 
FI6B List within the user program immediately following the DOPEN command. This 
list is used by all files. Storage for the FIB List is automatically allocated. 


Format 


DOPEN ,, (x, FIB address, mode, rewind indicator 


ETC symref name,*,.ecceod 
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The following parameters and respective 


Parameter 


FIB Addres 


PROCESSING 
MODE 


REWIND 
Indicator 


Routine 
Package 


Rules: 


Value Default 


s Address 


OT OT 


symref name 


defaults apply: 


Comments 


Required: location of FIB for files 
to be opened 


Output 

Input 

Input/Output Capplies to mass 
storage) 


EXTEND (does not apply to GFRC on 
mass storage) 


Rewind Option 
DO NOT REWIND ON OPEN 


Required; package of routines 
needed to process the files 


Two commas must precede the left bracket enclosing file parameters. 


Each List of parameters for every file must be preceded by an *. 


Key words must not appear within the brackets. 


Parameters must be Listed in predefined order. Defaults may be taken; 
however, if they are, the subsequent comma must be used. 


FIB List address should not be supplied. 


ALL other rules that apply to the 
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Single-Open/User-Defined Function. 
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Put Macro ~ DLPUT 


Function 


The Put macro places a Logical record in the file. 


Format 


DLPUT FIB address,VIB address,, 
CVIB-parameter-name-1,VIB-parameter-value-1,..., 


VIB-parameter-name-n, VIB-parameter-value-n] 
NOTE: VIB must be defined as BSS 2. 
The Put macro has the following parameters and respective defaults: 


Parameter Name Value Default Comments 


Record size Optional 
Used with variable-length 
records, but ignored with 
fixed-length records. 


RSZ Integer Must be less than or 
equal to RSZ in FIB. 


RSZI Address Location of field 
containing record size 
in bits 0-17. 


Report code Optional 
Report code applies only to 
GFRC files. If a negative 
value is supplied, a default 
report code, assigned when 
the file is opened, is used. 


RPCOD 1<Integer < 63 0 


RPCODI Address Location of report code 
field in bits 18-35. 


Number of Required 

Lines to slew Only if slew code SLCOD(I) 
is 4 or 5. Applies 
only to System Output 
and GFRC files. 


SLEWN Address Location of word 


containing number of Lines 
to slew in bits 18-35. 
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Parameter Name 


Slew code 


SLCOD 


SLCODI 


Indirect FIB FIBI 
addressing 


Segment SGCOD 
code 
SECODI 
NOCRLF 
Number of CCHRS 
user-suppLlied 
control 
characters 
CCHRSI 
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Value 


Address 


None 


Integer 


Address 


Integer 


Address 


Default 


None 


Comments 


Optional 

Applies only to GFRC files 
Specifies spacing before. 
or after print 


Print after slewing one 
Line 


Print before slewing any 
Lines 


Print before top of page 
Print after top of page 
Print before slewing the 
number of Lines specified 
in SLEWN 

Print after slewing the 
number of Lines specified 


in SLEWN 


Location of word containing 


- slew code in bits 18-20 


(bits 21-35 must be zero) 


Optional 

If this keyword is specified, 
it implies that argument 1 

is not the actual FIbB 
address, but is a pointer to 
a Location that contains 

the FIB address. 


Applies when 

user supplies 
record segments to 
UFAS where: 


U = only segment 

1 = first segment 

2 = middle segment (GFRC) 
Last segment (CUFF) 

3 = Last segment (GFRC) 


middle segment (CUFF) 


Location of word 
containing the segment 
code in bits 18-20 


Indicates that the normal 
carriage return Line feed 
sequence after TSS output 
will be suppressed. The 
user will take care of 
slew controls. 


Optional 
applies only to TSS 
terminal output 


Location of word 
containing CCHRS 
in bits 18-35 
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Rules 


7/80 


The designated file must be open for output or extend at the time of 
the execution of this statement. 


The current record pointer is unaffected by the execution of a Put 
macro. 


The maximum record size for a file is established at the time the file 
is created and cannot subsequently be changed. 


When an attempt is made to write beyond the externally defined 
boundaries of a sequential file, an exception condition results and 
the file is unaffected. 


If a process area is specified in the FIB, the record is moved from 
the process area to the buffer. If an output transliteration table is 
specified, the entire record is transliterated from the internal code 
set to the external code set as it is moved. 


Before the Put macro is issued, if in-place processing is specified, 
the user must have placed the record in the record area denoted by the 
address returned after the previous Put or Open macro. 


If the record size is not specified and records have variable length, 


the record size in the record size word parameter is used. If no 
parameter is specified, the FIB record size is used. 
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Example 


Put a 7O-character Line in the file specified by FIB2. The tine includes a 
slew code to print the Line before slewing (15 Lines) and a report code of 25. 


1 8 16 


DLPUT  FIB2,V1B2,,CRSZ1,ADDSIZ,RPCOD,25,SLEWN,SL15,SLCOD,4,FIBIJ 


FIB2 ARG FIBX 


VIB2 BSS 2 


ADDSIZ ZERO 70,0 
SL15 DEC 15 
FIBX FIBMAC PR,GFRC, CRSZ,160,PROAR,LINE,0O,MEDCOD,7] 


LINE BSS 40 
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Rewrite Macro ~ DLRWR 


Function 


The Rewrite macro causes the record made available by the last Get Next 


function to be replaced in the file. 


Format 


DLRWR FIB address,VIB address,alternate return address, 


CVIB-parameter-name-1,VIB-parameter~value-11] 
NOTE: VIB must be defined as 8SS 1. 


The parameters and respective defaults for the Rewrite macro 
follows: 


Parameter Name Value Default Comments 


Record size Ignored for in-place 


processing. 


Optional 


Specifies the number of 
characters of the record 


to be rewritten (when 


process area is specified). 


RSZ Integer Value must be equal to 
the size of the record 


being replaced. 


RSZI Address Location of record size 


field in bits 0-17. 


Indirect FIB FIBI None Optional 
addressing If this keyword is 


specified, it implies 
argument 1 is not the 
FIB address, but is a 
pointer to a location 


that 
actual 


that 


contains the FIB address. 


Rules 
1. The designated file must be open for I/0 at the time of execution of 
this statement. 
es For files opened for sequential access, the last input/output function 
executed for the associated file, prior to the execution of the DLRWR 
macro, must have been a successfully executed DLGXT. 
ne The size of the record must be equal to the size of the record being 


replaced. 
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Example 


the 
made 


The current record pointer is not affected by the execution of a DLRWR 
macro. 


When the rewrite is unsuccessful, the file is unaffected. 


If record size is not specified, the record size in the FIB- record 


size word parameter is used. If no parameter is specified, the FIB 
maximum record size is used. 


Rewrite the 20-byte record just read from the file specified in FIBAD. If 


record size is not equal to that of the record being replaced, return is 
to ALTRT. 
1 8 16 
' DLRWR FIBAD,VIBAD,ALTRT, CRSZ,20] 
FIBAD FIBMAC DF,, CPROAR,RECORD,OJ 
VIBAD BSS 1 
ALTRT NULL 
RECORD 8SS 20 
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Get Next Macro - DLGXT 


Function 


The Get Next macro makes the next logical record available in the 
predecessor-to~successor relationship established when the file was created. 


Format 


DLGXT FIB address,VIB address,end~of-file address, 


CVIB-parameter~name-1,VIB-parameter-value-1] 
NOTE: VIB must be defined as BSS 1. 


The parameters and respective defaults for the Get Next macro are as 
follows: 


Parameter Name Value Default Comments 


Record size Applies only to GFRC and IBM 
files. Ignored for in-place 
processing. 


Optional . 
Specifies the number of 
characters to be moved to 
the process area from the 
record when the entire 
record is not required (when 
process area is specified). 
UFAS stores the actual 
record size in the FIB 
record size word parameter. 


RSZ Integer Value must be less than 
or equal to RSZ value given 
in the FIB macro. 


RSZI Address Location of record 
size in bits 0-17. 


Indirect FIB FIBI None Optional 

addressing If this keyword is 
specified, it implies that 
argument 1 is not the actual 
FIB address, but is a 
pointer to a location that 
contains the FIB address. 


Rules 


Le The designated file must be open for input or 1/0 at the time this 
macro is executed, 
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One segment ONESEG None 
selection 


TSS User's PROMPT Address 
PROMPT 
Rules 
1. The designated file must be open for 


macro is executed. 
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Optional 

If this keyword is 
specified, the 
implication is that 
only one segment will 
be returned for 
segmented records 


Address of word 
containing: 


bits 0-17 Address of start 
of user's input 
prompt 


bits 18-35 User's prompt 
character 
Length 


input or 1/0 at the time this 
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rae An end-of-file condition is returned when no next logical record 
exists in the file. This condition is considered an unsuccessful read 
request. Control is returned to the end-of-file’> address. 


36 If an optional file is not present, then an end-of-file condition is 
returned on the first read request. The end-of-file address receives 
control. 

4. If the position of the current record pointer is undefined, an error 
condition results. The current record pointer is not defined 


following an unsuccessful read request. 


Ds If the record size parameter is not specified, the whole record is 
moved to the process area and the record size is made available to the 
user in bits 0-17 of word O of the VIB and in the word specified bY 
the record size word parameter in the FIB. 


6. If a VIB is not specified, the whole record is moved to the process 
area and the record size is made available to the user only if a 
record size word parameter is specified in the FIB. 


‘. For sequential files on removable mass storage or tLabeled tape, the 
following steps are executed if the end of unit is reached before an 
end of file: 


ae Trailer label is checked. 

Dia Unit switch is attempted (if this is the last unit, an 
end-of-file condition results). 

Cx Header label of the next unit is checked. 

Gs First record of the next unit is made available to the program. 


Example 


Get the next record in sequential order and move 50 bytes of a 100-byte 
record to the user process area. The actual record size (100 bytes) is placed 
in the location defined by the record size word parameter (NMBR). At end of 
file execute the procedure beginning at ALT. 


1 8 16 


DLGXT  FIB,VIB,ALT, CRSZ,50,FIBI] 


VIB BSS 1 
ALT NULL 
FIB ARG FIBV 


FIBV FIBMAC AA,UFF, CRSZWRD,NMBR,PROAR,RECORD,O,RSZ,100) 


NMBR BSS 1 
RECORD BSS 25 
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Position Macro - DLPOS 


Function 


The Position macro 
subsequent access. 


provides’ for 


Format 


DLPOS 


NOTE: VIB must be defined as 8SS 2. 
The parameters and respective defaults 
follows: 
Parameter Name Value Default 
File BEGIN FILE 
beginning 
Backward 
positioning 
BACK Integer 0 
BACKI Address 
Forward 
positioning 
FORW Integer 0 
FORWI Address 
1 ’ : 
Applies only to single-~volume files. 
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Logically 


positioning the file for 


FIB address,VIB address,alternate return address, 
CVIB-parameter-~name-1,VIB-parameter-value-1, 
VIB-parameter-name~2,VIB-parameter-value~2] 


the Position macro are as 


Comments 


Optional 
Device is positioned 
at beginning of file . 


Optional 

Specifies the number of 
Logical records to be 
skipped over in the back- 
ward direction. 


Number of Logical records 
to be skipped over in 
the backward direction . 


Location containing a 36-bit 
binary value representing 
the number of Logical re- 
cords to be skipped over in 
the backward direction’. 


Optional 

Specifies the number of 
Logical records to be 
skipped over in the 
forward direction. 


Number of Logical records 
to be skipped over in 
the forward direction. 


Location containing a 36-bit 
binary value representing 
the number of logical 
records to be skipped over 
in the forward direction. 
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addressing 


Rules 


‘Parameter Name Value Default Comments 

Number of OUTNBI Address Optional 

Logical Location in which a 

records 36-bit binary value 

skipped representing the number of 

over Logical records actually 
skipped over is returned. 
Applicable only when back- 
ward or forward positioning 
is used. 

Indirect FIB FIBI None Optional 


If this keyword is 
specified, it implies that 
argument 1 is not the 

actual FIB address, but is a 
pointer to a location that 
contains the FIB address. 


The designated file must be open jin the input or input/output 
processing mode. 


If an end-of-file is encountered before n logical records are 
bypassed, the alternate return is taken. The number of logical 
records actually skipped over is returned to the user through the 
OUTNBI parameter. If the contents of the OUTNBI parameter do not 
equal the original input parameter, the status field must be checked 
to determine if an end-of-file condition occurred. 


If an end-of~volume is encountered before n tLogical records are 
bypassed, UFAS performs volume switching, lLabel-checking, and 
positioning at the proper place on the new volume. 


If a beginning-of-file is encountered before n logical records are 
bypassed, the alternate return is_ taken. The number of Logical 
records actually skipped over is returned to the user through the 
QOUTNBI parameter. If the contents of the OUTNBI parameter do not 
equal the original input, the status field must be checked to 
determine if a beginning-of-file condition occurred. 


If a beginning-of-volume is encountered before n logical records are 
bypassed, an error condition occurs and control is passed on to the 
user~specified error routine if it exists; otherwise, an abort 
occurs. 
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Examples 


Rewind file. 


1 8 
DLPOS 
VIB1 BSS 


FIB1 FIBMAC 


ALT1 NULL 


RECORD BSS 


Backspace one 


1 8 
DLPOS 

ViB2 BSS 

TRUENB DEC 


FIB2 FIBMAC 


ALT2 NULL 


RECORD BSS 


Skip over four 


1 8 
DLPOS 
VIB3 BSS 
RECNB DEC 
TRUENB DEC 


FIB3 FIBMAC 


ALTS NULL 


RECORD BSS 


16 


FIB1,V1B1,ALT1, (BEGIN, FILE] 


2 
RF,UFF, CPROAR,RECORD,OJ 


20 


Logical record. 


16 


FIB2,VIB2,ALT2, CBACK,1,0UTNBI, TRUENBI 


2 
0 
B1,UFF, CPROAR,RECORD,O1 


20 


Logical records in the forward direction. 
16 

FIB3,VIB3,ALT3, CFORWI,RECNB,OUTNBIL,TRUENBI 
2 
4 
0 
F4,UFF, CPROAR,RECORD,0] 


20 
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Read User Labels ~- DLRLB 


Function 


The read user tabel macro retrieves a user label record and places it in 


the defined label process area. 


Format 


DLRLB FIB address, VIB address, Alternate return, 


NOTE: VIB must be defined as BSS 1. 


Parameter Name Value 
Indirect FIB FIBI None 
Addressing 
Rules 

Ls This macro may be used 


processing procedure. 


2. The alternate return 
present.(Major Status 
issued to return to UFAS. 


taken 


Default 


in an 


5) A 


when 


CVIB parameter-name-1] 


Comments 


Optional 

If this keyword is 
specified, it implies that 
argument 1 is not the 
actual FIB address, but is 
a pointer to a location 
that contains the FIB 
address. 


UFF, or IBM user. Label 


no next user Label is 
UFSRET CUSERLB) command must be 
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Example 


Read the next user head Label record and place it in the Label process 


area. If no next user Label record is present, go to a procedure beginning at 
ALT. 


1 8 16 


EXADR OLRLB FIB,VIB,ALT,CFIBII 


VIB BSS 1 
ALT NULL 


UFSRET USERLB 
FIB ZERO FIBV 
FIBV FIBMAC AA,UFF,CLABAR,AREA,0,STATUS,0,LABEXT,LABTBJ 


AREA BSS 20 

STATUS BSS 1 

LABTB ZERO EXADR,0 INPUT USER HEADER LABELS EXIT 
BSS 11 


Write User Labels - DLWLB 


Function 


The write user Label macro writes the user label record which has been 
placed in the defined Label process area. 


Format 
DLWLB FIB address, VIB address,,CVIB parameter-name-1] 


NOTE: VIB must be defined as BSS. 2. 


Parameter Name Value Default Comments 
Indirect FIB FIBI None Optional 
Addressing If this keyword is 


specified, it implies that 
argument 1 is not the 
actual FIB address, but is 
a pointer to a location 
that contains the FIB 
address. 
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a This macro may be used only in a ANS, UFF or IBM user 
: label processing procedure. 


2% The user Label identification will be checked for a UVL, UHL, or UTL 
- in the first three positions of the Label. The identification must be 
defined as UASCI. The program will be aborted if the test fails. 
3% A UFSRET (USERIB) must be issued to terminate the user Label 
procedure. : 


Example 


Write a user head Label record which is in the user Label process area. 


1 8 16 


EXADR DLWLB FIB,VIB,,CFIBII 


UFSRET USERLB 


VIB BSS 2 
FIB ZERO FIBV 
FIBV FIBMAC AA,UFF,CLABAR,ULAB,0,STATUS,0,LBLEXT,LABTBI 
STATUS BSS 1 
LABTB ZERO 0,0 
ZERO 0,0 
ZERO EXADR,O OUTPUT USER HEADER LABEL EXIT 
BSS 9 


ULAB  UASCI  1,UHLO 
ULDATA BSS 19 
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Return Macro ~ UFSRET 


Function 


The Return macro provides a means of returning control to UFAS after a user 
error or Label processing procedure is completed. 


Format 


USERLB 
UFSRET( LABEL 
ERROR 


LABEL - Must be specified when returning to UFAS from user GFRC Label exit 
processing. 


ERROR ~ Must be specified to return from a user error procedure. 


NOTE: Both the user error and the Label procedures are specified in the FIB 
macro. 


USERLB - Must be specified when returning to UFAS from an ANS, UFF or IBM user 
label exit processing. 


When a user error or Label procedure contains a UFAS macro, which can 
result also in a user error or Label procedure for another file being entered by 
UFAS, the second procedure must conclude also with a UFSRET return for that 
particular function. 


Example 


Return to UFAS, which has issued a user Label exit call to the user. 


1 8 16 


UFSRET LABEL 


rca I 6 DC89-03 


Information Macro ~- DINFO 


FUNCTION 


‘The DINFO macro stores File Access Control Table (FACT) information or the 
size of each section of the FACT table in a user specified table area. 


FORMAT 


DINFO FIB address, VIB address, alternate return address, (Cparameter-name-1, 
parameter-value-1...., parameter-name-n, parameter-value-n] 


NOTE: VIB must be defined as BSS 1 


The parameters and respective defaults for the Information Macro are as 
follows: 


Parameter Name Value Default Comments 
Function FCT 1 Store FACT section 1 into 
Code user table area. Includes 


words FACT-8 through 
FACT +98 for all file types. 


2 Store FACT section 2 into 
user table area. Includes 
words 0 through +59 for 
UFF Indexed files with no 
alternate keys: 0O through 
+81 for UFF Indexed with 
alternate keys; O through 
+17 for ANSI/IGM/GFRC and 
UFF tape 0 through +41 for 
ISP; and 0 through +9 for 
H2000. 


3 Store FACT section 3 into 
user table area. Include 
words 0 through 26 (dec.) 


4 4 Store the entire FACT into 
the user table area. 


5 Store FACT-8 through FACT 
+5 of section 1 into user 
table area. 


This option provides FACT 
information that is equiv- 
alent to the GFRC FILCB. 


6 Store the size (Cin binary) 
of FACT sections 1, 2, and 
3 into a 3-word user defined 
table area. Zero will be 
given as the size of 
section 3 if it is 
non~existent. 
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Table 
Pointer 


Indirect 


FIB 


Addressing 


RULES: 


TBL Address Required. 
The location of a table 
Large enough to contain the 
requested information. 


FIBI None Optional. 
If this keyword is specified, 
it implies that argument 1 
is not the actual FIB 
address, but is a pointer 
to a location that contains 
the FIB address in bits 0-17. 


The designated file must be opened in either the input, 1/0, output 
or extended processing mode. 


The TBL parameter is required and must point to an area Large 
enough to contain the requested information. 


The user must provide an alternate return address. 
If an error is detected during execution of the DINFO macro, UFAS 


will return control to the user via the alternate return except when 
executing the DINFO macro on any unopened file in which case UFAS 


will branch to a users error procedure if it is present or abort. 


A function code of 6 requires a table size of 3 words. After a 
successful execution of a DINFO macro the table will contain the 
following values: 


Word Contents 


1 Size of FACT section 1, right- 
justified. (In Binary) 


2 Size of FACT section 2, right- 
justified. (In Binary) 


3 Size of FACT section 3, right- 
justified. (In Binary) A size of 
zero will be given if section 3 is 
non-existent. 


If no function code (FCT) parameter is specified the entire FACT will 
be given to the user. 


The FACT sizes given in this specification are applicable to SR ADF2. 


This macro may not be executed for files processed under TP or 
I-D-S/II. 


The following error conditions will be identified: 


a. 8-10 File not opened. (ALT return not taken) 

b. FO A potential FO memory fault during DINFO execution = may 
take place because of insufficient table area size. 

Ce. F1 Invalid function code 

(se 4 The user asked for FACT section 3, and it does not exist. 
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1U. The sizes, in decimal, of the entire FACT for the various file formats 


ares: 


UFF SEQUENTIAL TAPE AND MASS STORE. sceeeeee e192 
UFF ROEGAT © VE ce eieiecie- o teralw et ee eee wie fore owe eee eee 1 92 
UFF UNDE XE Dio. ae aevee: 6:6 e foes ie sie esate ete eselave eee wets cal Pe 


LONG cree eecmaarios e-vucsecie haa nee inaneanirenaateele2 
ANS lem wrectcare Guan cates wou Lak aaa otaee nia ctatee 
HOG 0 cre carers craeiee Sraraco aaesu oleae scar Sova acd a aes 
INET 5 eeavate arate a eta ware Sito a cra Gee Dea eeeatet oe 


GFRC Tape and Mass SCOR 6 wees wie arse So ererera ae 6 6 152 


ES Pace ele a tale lowete a Wee's e eo. ove ele aise alee Bre wie aere eevee VOY 


Example 


Store the entire FACT contents of the file specified by FIBI into a table 


specified by TABLE. 
1 8 16 


DINFD FIB1,VIBI,ALTRET,CFCT,4,TBL,TABLE] 


FIB1 FIBMAC DA,UFFCPROAR,RECORD,O,0RG,IND, 


ETC KEYPTR,PRIMEJ,KY 
RECORD BSS 21 
PRIME VFD 1/0,17/0,18/4 
ZERO 
VIBI BSS 1 


TABLE NULL 
ALTRET NULL 


Checkpoint Files Macro - DCKPF 


Function 


The Checkpoint Files macro establishes a checkpoint for 


Format 


DCKPF 
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all open files. 
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Rules 


ALl randomly allocated files written by the program must have’ FMS 
ABORT/ROLLBACK/ protection. 


ALL opened files are included in the checkpoint. 

The macro must be executed at a point from which processing of the 
files can be resumed if a rollback does occur, since the program is 
not checkpointed. 

The macro performs a buffer flush before establishing the checkpoint. 
For any files being processed with ACCESS/MONITOR/ (see File 
Management Supervisor manual), buffers are set empty and the record 
pointer is set to undefined. 


Checkpoint is taken only if protected files are present and have been 
opened. 


Checkpoint Files and Program Macro ~- DCKPT 


Funct 


jon 


The 


Checkpoint Files and Program macro establishes a checkpoint for all 


open files and for the program. 


Forma 


DCKPT 


t 


Rules 


ALl randomly allocated files written by the program must have FMS 
ABORT/ROLLBACK/ protection. 


All opened files are included in the checkpoint. 


The macro must be executed at a point from which processing of the 
files can be resumed if a rollback does occur. 


The macro performs a buffer flush before establishing the checkpoint. 
For any files being processed with ACCESS/MONITOR/ (see File 
Management Supervisor manual), buffers are set empty and the record 
pointer is set to undefined. 

A QX file large enough to accommodate the program must be allocated, 


but not declared in the user program (see Program Recovery/Restart 
manual). 
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re Checkpoint is taken only if protected files are present and have been 
opened. 


8. The Q@ register (lower 18 bits) contains the status code returned by 
MME GECHEK as described in the General Comprehensive Operating 
Supervisor manual. Zero status indicates a successful checkpoint. 


Rollback Files Macro - DROLF 


Function 


The Rollback Files macro restores the files open at the time of the 
previous checkpoint to their state at that time. The effect is to cancel all 
changes to the files since the previous checkpoint. 


Format 


DROLF 


Rules 
T A DCKPF or DCKPT macro must be executed before performing the 
rollback. 


2% The current record pointer is undefined after a rollback. 
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Rollback Files and Program Macro - DROLP 


Function 


The Rollback Files and Program macro restores the program and all files 
that are open at the time of the previous checkpoint to their state at that 
time. The effect is to cancel all changes to the files since the checkpoint and 
to restart the program from that point. 


Format 


DROLP 


Rules 


1. A DCKPT macro must be executed before a rollback is executed. 


ras The current record pointer is undefined after a rollback. 


Wrap-up Macro ~- DWRAP 


Function 


The Wrap-up macro closes files currently open. 


Format 


DWRAP 


ALL opened files are closed with rewind. Device disposition codes are not 
honored. 
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Close Macro ~ DCLOS 
Functions 


The Close macro terminates the processing of one or more files. DCLOS 
consists of the following four functions: 


A Single-Close/User-Defined FIB List 
Zs Single-Close/Macro-Defined FIB List 
3 Multiple-Close/User-Defined FIB List 


4, Multiple-Close/Macro-Defined FIB List 


SINGLE-CLOSE/USER-DEFINED FIB LIST 
Format 


DCLOS J] FIBLS,address of FIB List ,Lparameter-name-t, 
FIBLSI,address of pointer to FIB List 


parameter~value-1,...,parameter-name-n,parameter-value-nJ 
NOTE: FIB List must be defined as BSS 2. 
The following parameters and respective defaults apply: 


Parameter Name Value Default Comments 


FIB. address Required 
Location of FIB for file 
to be closed. 


FIBA Address Location of FIB. 

FIBAI Address Location of pointer to FIB. 
Rewind Optional 
indicator Applies only ts tape and 


removable mass storage files. 


REW RWFEL RWFL Rewind file. 

NRFL Do not rewind file. 

RLFL Rewind and lock file 
(see note). 

LKFL Lock file without rewind 
(see note). 

RUFL Rewind and unload file. 

RSFL Lock file with rewind and 


unload (see note). 
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Parameter Name Value Default Comments 


NOTE: 


Rules: 


RWUN Rewind unit. 
NRUN Do not rewind unit. 
RUUN | Rewind and unload unit. 
REWI Address Location of rewind indicator 


(4 ASCII uppercase 
characters). 


REWV Rewind value. 
0 ) Rewind file. 
1 Do not rewind file. 
2 Rewind and lock file 
(see note). 
és Lock file without 
rewind (see note). 
4 Rewind and unload file. 
6 Lock file with rewind and 


unload (see note). 


8 Rewind unit. 
9 Do not rewind unit. 
10 Rewind and lock unit 


(see note). 


12 Rewind and unload unit. 
REWVI Address Location of rewind binary 
representation value in 
bits 18-35. 


Whenever the lock parameter is used, the file is disposed of as indicated 
by the disposition code specified on the device control card (see Control 


Cards Reference Manual). The lock parameter and a save or continue 


disposition code are mutually exclusive. If a file that has an S or a C 
disposition code is closed with lock, the Lock request is ignored, the 
file is not rewound or released, and no indication is given to the user 
that the lock request was ignored. 


The Close macro can only be executed for a file that was opened with 
DOPEN. 


The unit designation applies only to multiunit files on tape. 
Close unit parameters 


a. No rewind means that the current unit is left in its current 
position following trailer Label processing. 


b. Rewind means that the current unit is positioned to its physical 
beginning of tape marker. 
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Cs Rewind and unload means that the current unit can be immediately 
removed from the device. However, this unit can be accessed 
again in its proper order, if the file is successfully closed and 
“reopened. 

4. Close file parameters 

ae No rewind means that the current unit is tleft in its current 
position following trailer label processing. No processing is 
done on other units of a multiunit file. 

b. Rewind means that the current unit is positioned to its physical 
beginning of tape marker, whereas rewind and unload means that 
the unit can be immediately removed from the device. No 
processing is done on other units of a multiunit file. 

oa Close unit label processing file positioning 

a. For files opened for input or 1/0: 

If user issues close unit, current trailer label is not checked. 
If UFAS detects end of unit, Swapping takes place automatically 
and all labels are checked. 

Unit switch takes place. 

Next header Label is checked. 

Position is made to the beginning of the file space on the next 
unit. 

b. For files opened for output or extend: 

Buffers are flushed and current trailer Label is built. 
Unit switch takes place. 
Next header Label is built. 
Position is made to the beginning of the file space on the next 
unit. 
6. Close file label processing 

a. If the file was opened for input or 1/0, the trailer label is 
checked. 

be If the file was opened for output or extend, the trailer Label is 
built. 

Example 
Close file specified by the file code in the FIB with the rewind and 


lock parameters. 


ADDFIB 
LIST2 


FIB 
RECORD 


16 


DCLOS FIBLS,LIST2,CFIBAI,ADDFIB,REW,RLFLI 


FIB 
2 


FIBMAC CF,ANSI, CPROAR,RECORD,O] 


20 
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SINGLE~CLOSE/MACRO-DEFINED FIB LIST 


Format 

DCLOS ,, Cparameter-name-1,parameter-value-1,...parameter-name-n,parameter-value-n] 
The following parameters and respective defaults apply: 

Parameters Name Value Default Comments 


Same as Single Close/User-Defined Function 


Rules: 


1. FIB List address is not to be supplied. 
2. Left bracket must be preceded by two commas. 


4 ALL Single-Close/User-Defined Function Rules apply. 


MULTIPLE-CLOSE/USER-SUPPLIED FIB LIST 


This function terminates the processing of one ton files. Only one FIB 
List is built, which is utilized by all files to be closed. 


Format 


DCLOS FIBLS, FIB List address , [*, FIB address, 
ETC RewV, *, FIB address, RewV,*,ccceed 


The following parameters and respective defaults apply: 
Parameter Value Default Comments 


FIB address address Required; location of FIB, for 
file to be closed 


Rewind Rewind Value 

Indicators 

0 Rewind file 
Do not rewind file 
Rewind and lock file 
Lock file without rewind 
Rewind and unload file 
Lock file with rewind and unload 
Rewind unit 
Do not rewind unit 
Rewind and lock unit 
Rewind and unload unit 


NOOWAALSWN-| Oo 


— — 


2-47 | DC89-03 


Vs Space for the FIB List must be defined as 1+n words, where n is the 
number of files to be closed. 


rae Each List of parameters for every file must be preceded by an *. 
3. Key words must not appear within the brackets. 
4. Parameters must be Listed in predefined order. Defaults may be taken; 


however, if they are, the subsequent comma must be used. 


D6 ALL Single-Close/User-Defined Function Rules apply. 
MULTIPLE~CLOSE/MACRO=DEFINED FIB LIST 


This function terminates the processing of from one to n files. It builds 
one FIB List in the user program, immediately following the DCLOS command. 
Storage is automatically allocated, and the List is used by all files that are 
closed via this function. 


Format — 
DCLOS ,, (*,FIB Address, REW-V,C*,FIB Address2,REW-V,...4 
The following parameters and respective defaults apply: 
Parameters Value Default Comments 


FIB address address Required; Location of FIB for 
file to be closed 


REWIND Rewind value 
INDICATOR 
0 0 | Rewind file 
1 Do not rewind file 
2 Rewind and unload file 
3 Lock file without rewind 
4 Rewind and unload file 
6 Lock file with rewind and unload 
8 Rewind unit 
9 Do not rewind unit 
10: Rewind and lock unit 
12 Rewind and unload unit 
Rules: 
1. Two commas must precede the Left bracket enclosing file parameters. 
23 Each List of parameters for every file must be preceded by an *. 
Se Key words must not appear within the brackets. 
4. Parameters must be Listed in predefined order. Defaults may be taken; 


however, if they are, the subsequent comma must be used. 
pA The FIB List address should not be supplied. 


6. ALL Single-Close/User-Defined Function Rules apply. 
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SECTION III 


SERIES 2000 SEQUENTIAL FILE ORGANIZATION 


A Series 2000 (H2000) file contains either blocked or unblocked 
fixed-length records or unblocked variable-length records on 7- or 9-track tape 
devices, which can be accessed only sequentially. The functions available for 
the H2000 file formats of the sequential file organization are Listed with the 
respective macros in Table 3-1. Files are opened, processed, and closed by UFAS 
in response to a FIB macro and specific functional macro requests. UFAS 
provides sequential H2000 file management only for single-file single-volume or 
single-file multi-volume files. 


Table 3-1 Lists the sequential H2000 file functions, the functional macros, 
the processing modes, and the access modes with applicable parameters for tape 
files. 


Table 3-1. H2000 Sequential Tape File Functions and Processing Modes 


MOD1 Types A and B - MOD4 Types 1 and 2 


Access Mode 
Processing Parameters 
Function Mode Sequential 
fopen | open | et rite 


File-Id 


2000/60 Magnetic Tape Interchange Facility 


The 2000/60 Magnetic Tape Interchange Facility is a combination of hardware 
and software components that enable the Series 60 Level 66 user to read and 
write Series 2000 magnetic tape files. 


Tapes to be read or written must be mounted on tape drives controlled by an 
MPC tape controller equipped with the Magnetic Tape Interchange Facility. This 
facility accommodates both GCOS and Series 2000 files. 
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User programs that process H2000 with UFAS must allocate tape units with 
either $ TAPE27 or $ TAPE29 control cards. 


FILE INFORMATION BLOCK MACRO 


The file information block macro provides the user with a «means of 
communicating to the Unified File Access System the specific characteristics of 
a file. However, before any communication can be established with UFAS, the 
user must invoke the macro package with the command LODM .DMAC. 


ALL file processing information exchanged between the user and UFAS is 
channeled through the FIB macro. for each file to be accessed, a FIB macro must 
be coded in the user program to define the characteristics of the file and the 
required processing parameters. 


Format 
The FIB macro for a H2000 sequential file has the following format: 


FIBMAC fc,H2000,Cparameter-name-1, parameter-value-1,...J 


wheres 
feo - file code assigned to file 


Multiple parameter-name and parameter~value combinations constitute a 
keyword-argument arrangement. These combinations may appear in any order within 
the brackets. If a combination of parameter-name and parameter-value is 
omitted, a default value is assumed. If the number of combinations exceeds one 
Line, an ETC card must be used to continue on the following Line. 


Only two parameter-values are required for the process area, file status 
code, and file name, but three are required for the retention period. Also, no 


symbol that defines an address can be repeated in another FIB macro. In order 
to repeat the same address in more than one FIB macro (e.g., a common process 
area) multiple symbols defining the same address must be used. Default values 


should not be specified for parameters that are not required, instead allow the 
default value to be applied automatically. For easy reference, these parameters 
are set in three groups as follows: 


e Required parameters for all H2000 tapes 


To specify H2000 tape as medium, character set used by user program, 
and tape label information. 


® User parameters 


To specify parameters only related to user program and independent of 
H2000 tapes. 


e Tape format parameters 


To describe physical characteristics of H2000 tape to be processed. 
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The following List contains all the 


values 


Parameter 


Required 


External 
code 


Internal 
code 


Input 
transli- 
teration 
table 


Output 
transli-~ 
teration 
table 


Name Value Default 
EXTCOD 

HBCD HBCD 
INTCOD 

ASC ASC 

HBCD 

GBCD 


INPTRN Address 


OUTTRN Address 


parameters and respective default 


available for this FIB macro arranged in the order previously described: 


Comments 


Code set of the data on the 
external device. This code 

is used with the CISZ parameter 
to calculate the number of words 
to allocate per buffer. Also, 
used with the internal code set 
parameter to establish the size 
of the characters within the re- 
cord and the process area, so 
that the records may be converted 
to this code set as they are 
moved to the buffer. 


Honeywell BCD (Codd parity 
character set). 


Code set of the data in the 
process area. Records are 
converted to this code set as 
they are moved to the process 
area. 


ASCII character set. 
HBCD character set. 
GBCD character set. 


Location of a system or user- 
supplied table. This table is 
used to transliterate the 
characters of a record from the 
external code set to the internal 
code set, as the record is moved 
from the buffer to the user's 
process area. 


Transliteration not required. Re- 
cords are moved from the buffer 
to the user's process area with- 
out transliteration. In this in- 
stance, the internal and external 
code sets are usually the same. 


Location of a system or user- 
supplied table. This table is used 
to transliterate the characters of 
a record from the internal code 

set to the external code set, as 
the record is moved from the user's 
process area to the buffer. 


Transliteration not required. Re- 
cords are moved from the user's 
process area (Cif specified) to 

the buffer without transliteration. 
In this instance, the internal and 
external code sets are usually the 
same. 
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Parameter 


File 
name 


Retention 
period 


User 


Process 
area 


File status 
code 


Record size 
word 


Name 


FLNAME 


RETPER 


PROAR 


FSCODE 


RSZWRD 


Value 


Address, 
byte 
O<byte<3 


0,0 


Address, 
byte, 
Length 


Address, 
byte 


Address, 
byte 


Address 


Default 


Comments 


Location of 10-byte ASCII file 
name to be used in header and 
trailer Label (not to be confused 
with visual file name from $ TAPE 


card appearing in console messages). 


No file name is provided. If para- 
meter is not required, allow de- 
fault to be assumed. 


Location of starting byte position 
and Length of the retention 

period field (maximum Length is 

3 bytes). 


Number of days tape may not be 
overwritten without operator 
intervention. A retention period 
of 999 means tape cannot be over~- 
written without operator inter- 
vention. 


Location and starting byte posi- 
tion of an area within the user 
program to which records are 

moved and from which they are 
retrieved with Put and Get macros. 
Byte position must be specified as 
zero. The size of the process area 
is assumed to be equal to the FIB 
record size. 


Location and starting byte posi- 
tion of a two-byte ASCII status 

code field in which UFAS stores 

a unique status code whenever an 
exception condition occurs (see 

Section VIII). 


No file status code field. 


Location of a 36-bit bisary re- 
cord size field used as a sub- 
ordinate to the VIB record size 
field. UFAS returns the record 
size to this field on input. On 
output, a record size may be 
provided in this field when no 
record size is provided with 
DLPUT macro. 


If no record size word is speci~ 


fied, either VIB or FIB record 
size is used. 
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Parameter Name 
Optional IOPTFL 
file 


indicator 


Checkpoint CHKPT 


User error USERER 
procedure 


Error table ERRTBL 


Number of NBUF 
buffers 

allocated 

by UFAS 


Value 


Integer 


<2 -4 


Address 


Address 


Integer 
1 or 2 


Default 


Comments 


Applies only to files open for 
input. 


File must be present. 


Actual file may not be present 

when Open macro is executed. 

If not present, the first Get macro 
issued results in an end-of-file 
condition. 


Checkpoints are taken every time 
this many records are accessed. 


No checkpoints are taken based 
on record count. 


Location of user~supplied error 
procedure to which UFAS transfers 
control whenever an error is de- 
tected. 


No user error procedure. 


Location of user-~supplied table 
of error procedures based on 
processing mode. 


The format of the error table is: 


word 0, bits 0-17: address of error 
procedure for files in output 
mode. 


word 1, bits 0-17: address of error 
procedure for files in input 
mode. 


(bits 18-35 of each word are re~ 
served.) 


When an error is detected, control 
is transferred to the appropriate 
error procedure only if the user 
error procedure parameter is not 
specified. If neither a user 

error procedure parameter nor an 
error table parameter is specified, 
UFAS aborts when an error is de- 
tected. 


No error table. 
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Parameter Name 
Tape Format 

Tape file TYPE 
formats 

Record RSZ 
size 

Number of BLOCK 
records 

block 

Banner BANNER 
indicator 

Padded PAD 
record 

Label LABELF 


indicator 


Value 


Integer 80 
1<n<24570 


Integer>1 


10 


NONE 
RANGE 
DEFAULT 
dd 
40<dd<57 


NONE 


dd 
NONE 


77 
11 
80 


120 
UNLAB 


Default 


Comments 


MOD1 type A or B and 

MOD4 type 1 or 2 file 

formats. 

Unblocked fixed-length records. 


Unblocked variable-length 
records. 


Blocked fixed-length records. 
Unblocked fixed-length records. 


Unblocked variable-length 


‘records. 


Blocked fixed-length records. 


Number of 6-bit characters per 
record. 


Characters per record for 1.AF, 
1.B, 4.1F, and 4.2. 


Maximum size if records are vari-~ 
able Length (1.AV or 4.1V). 


Number of records per physical 
block on tape. 


Must be specified for all blocked 
formats and is assumed to be 1 for 
unblocked formats. 


User-supplied character code. 

Banner character separates physical 
blocks with data records from 

blocks for header or trailer 

Labels and for checkpoint records. 
If the first character of a physical 
block does not match the banner 
character it is assumed that no data 
records are present. 


Padded records have all padding 
characters and are used to fill 

the Last records of a physical 

block when file is closed. The two 
octal-digits dd (e.g., 77) represent 
a character in HBCD character set. 


Used for odd parity data. 

Used for even parity data. 
Indicates presence or absence of 
labels. If absent on input, no end 


of file is detected and no end-of- 
reel unit switch can occur. 
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Rules 


me The file information block has several assigned fields. If a field is 
not applicable to a particular situation, it is ignored. Fields’ that 
are set ina conflicting manner cause the open function to return an 
exception code to the user. 


2% A banner character, when present, is the first character of a physical 
block and indicates if the block is a label, a data block, or the 
block is to be discarded (e.g., checkpoint information). The HBCD 
character to be checked (on input) or written (on output) is specified 
by the two octal digits "dd" representing the character code (e.g., 41 
for J). The value 41 (J) can also be specified by entering the 
keyword DEFAULT. For input files, data blocks with any banner 
character in the range 40 (octal) <dd<57 (octal) are used if the 
keyword RANGE is specified. If the file is not bannered, this can be 
specified with the keyword NONE. 


3. If system transliteration tables are required, the parameter values 
for the input CINPTRN) and output (COUTTRN) transliteration tables must 
be the SYMREF of the tables. If a user-supplied transliteration table 
is used, the INPTRN and OUTTRN values are the addresses of the 
respective tables. 


FUNCTIONAL MACROS 


Although each one of the functional macros performs a specific function and 
has its own format and set of rules, which are described separately in detail, 
certain conventions and rules are common to all functions. 


The Open and Close macros contain the information that is necessary to open 
or close one or more files with one statement. A common FIB List is built and 
is used by all files to be either opened or closed. The user can either reserve 
space in the program for the FIB List, or can allow the List to be built by the 
macro. 


In order to execute a functional macro, information pertinent to the 


function must be supplied in a variable information block (VIB). The VIB 
address parameter specifies where the variable information is to be located. 
This parameter may be either zero or omitted if no parameters are required. If 


parameters are required, the user supplies values in the macro parameter fields 
to indicate the values to be entered in the VIB for execution of the function. 


Parameters are expressed in pairs containing a keyword and value. Commas 
must be used to separate each parameter name from the associated parameter value 
and two consecutive pairs of parameters. Parameter names ending in "I" indicate 
an indirect reference to the parameter value. Parameters may be specified in 


any order. If a parameter and its value are omitted, the default value is 
assumed. 


Normally, registers are saved when UFAS is entered and restored when UFAS 
returns control to the user, except index register 1 which is the transfer 
register. The only exception is when a user error or label exit procedure is 
entered. In this instance, the user registers are not restored because UFAS is 
relinquishing control only temporarily to allow the user to process” the 
exception condition. When control is returned to UFAS Cat the completion of the 
error or Label procedure), the saved registers are still valid. 
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Open Macro - DOPEN 


Function 


The Open macro initiares the processing of one or more files, verifies 


their existence, and establishes tables for file processing. 
DOPEN consists of the following four functions: 


i be Single-Open/User~Defined FIB List 
2% Single-Open/Macro-Defined FIB List 
3. Multiple-Open/User-Defined FIB List 


4. Multiple~Open/Macro~Defined FIB List 
SINGLE-OPEN/USER~DEFINED FIB LIST 


Format 


DOPEN) FIBLS,address of FIB List ,Cparameter-name-1, 
FIBLSI,address of pointer to FIB List 


parameter-value-1,...,parameter-name~n,parameter-value-nJ ~ 
NOTE: FIB List must be defined as Block Starting Symbol (BSS) 3. 


The parameters and respective defaults for this function are as follows: 


Parameter Name Value Default Comments 
FIB address Required 
Location of FIB for file to be 
opened. 
FIBA Address Location of FIB. 
FIBAI Address Location of pointer to FIB. 
Routine Required 
package Location of a UFAS symbol refer- 
SYMREF ence (SYMREF) that corresponds to 
name to a set of routines used to 


process the file. 


SYM Routine Package of routines needed to 
package . process the file. 
SYMREF 
name 
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Parameter 


Processing 
mode 
indicator 


Rewind 
indicator 


Name 


SYMI 


MODE 


MODEL 


REW 


REWI 


Value 


Address 


OT 
IN 


Address 


uf 
N 


Address 


Default 
OT 
Y 
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Comments 


Location of pointer to 
the routine package. 


Optional 


Output 
Input 
Location of processing mode 


indicator (2 ASCII uppercase 
characters in bits 0-17). 


Rewind on open. 
Do not rewind on open. 


Location of rewind 


indicator, in upper case ASCII, 


with Y and blanks or N and 
blanks in bits 0-17. 


DC89-03 


Routine Package SYMREF Name 


The Unified File Access System is a flexible system that allows the user to 
utilize the whole system or just portions of the system that are applicable to 
the format of the file to be processed. In order to select the UFAS routines to 
be Linked at load time, the user must supply a SYMREF (directory) name for the 
specific set of routines desired. Table 3-2 Lists the file format 
characteristics and the corresponding directory names. 


Table 3-2. Series 2000 Sequential File Format Directories 


File Format Mode Mode CSYMREF) 


MOD 1 
Type A,F 
Unblocked FLR 


Sequential Input 


Output 


Type A,V 
Unblocked VLR 


Sequential Input 


Output 


Type B 
Blocked FLR 


Sequential Input 


Output 


MOD4 
Type 1,F 
Unblocked FLR 


Sequential 


Type 1,V 
Unblocked VLR 


Sequential 


Type 2 
Blocked FLR 


Sequential 


Rules 

1. To open a file for input, the Open macro uses the FIB address, the 
routine SYMREF address, the MODE indicator if supplied, and the FIB 
macro parameters. To open a file for output, the file status code 
(FSCODE) is used if supplied. 

Gs Files are rewound, unless file sequence number zero and REW=N_ is 
specified. 

Sis Label processing is effected, unless the permissible value UNLAB is 


specified in the FIB macro, as follows: 
a. When a file is opened for output, header Labels are written. 


b. When a file is opened for input, header labels are checked. 
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The value 00 in the user's file status code indicates the file was 
opened successfully and is ready for processing. Any other value 
indicates that an error occurred during opening (possible 
contradictory FIB parameters or Label processing error). 


Open output implies file creation and open input means that= an 
existing file is to be read. 


Open a H2000 file for output with rewind on open. 
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LODM -DMAC 
SYMREF .DOFIN,U.HTOA,U.ATOH 
DOPEN  FIBLS,FIBLST,CFIBA,FIB,MODE,0T,SYMI,DIRPTR,REWL,RWDIND] 
FIBLST BSS 3 
RWDIND UASCI 1,Y 
DIRPTR ARG -DOFIN 
FIB FIBMAC H2,H2000,CEXTCOD,HBCD,INTCOD,ASC, 
ETC INPTRN,U.HTOA,OUTTRN,U.ATOH,FLNAME,FILNAM,O, 
; RETPER, RETENP,0,1,PROAR,RECORD,0,FSCODE,STATCD,0, 
: RSZWRD,RECSIZ,ERRTBL,ERRTBL,NBUF ,2,TYPE,1.AF,RSZ,100, 
ETC BLOCK,1,BANNER,NONE,PAD,45,LABELF, 80] 


FILNAM ASCII 3,H2000-FILE 
RETENP ASCII 1,366 


RECORD BSS 25 

STATCD ASCII 00 

RECSIZ DEC 100 

ERRTBL ARG ERROT 
ARG ERRIN 

ERRIN NULL 

ERROT NULL 
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SINGLE-OPEN/MACRO-DEFINED FIB LIST 


This function initiates processing of only one file. It builds FIB List in 
the user program immediately following the DOPEN command, and storage is 


allocated automatically. 


Format 
DOPEN ,,UCparameter-name-1,parameter-value-1,...parameter-name-n, 
parameter-value-nJ 
ETC symref package 
The following parameters and respective defaults apply. 


Parameter Name — Value Default Comments 


Same as Single-Open/User-Defined Function. 


Rules: 


1% Do not supply FIB List address. 
2. Left bracket must be preceded by two commas. 
32 ALL other rules that apply to the Single-Open/User-Defined 


MULTIPLE-OPEN/USER~SUPPLIED FIB LIST 


This function initiates the processing of from one to n files. 
one FIB List, which is used by all files. 


Format 


DOPEN FIBLS, FIB List address, (C*, FIB address, mode, 


ETC rewind indicator, symref name, *, FIB address 2, 
ETC mode 2, rewind indicator 2, symref 2,....] 
3-12 


Function. 


It builds 
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The f 


Parameter 


FIB Addres 


PROCESSING 
MODE 


REWIND 
Indicator 


Routine 


Package 


Rules: 


This 
FIB tist w 
List is us 


Format 


DOPEN 


ETC 


ollowing parameters and respective defaults apply: 


Value Default Comments 


Ss Address Required: Location of FIB for 
files to be opened 


OT OT Output 

IN Input 

10 . Input/Output Capplies to mass 

storage) 

EX EXTEND (does not apply to GFRC 
on mass storage) 

Y Y Rewind Option 

N DO NOT REWIND ON OPEN 

Symref name Required: package of routines 


needed to process the file 


Space for FIB List must be defined as 1+2n words where n is the number 
of files to be opened. 


Each List of parameters for every file must be preceded by an *. 
Key words must not appear within the brackets. 


Parameters must be Listed in predefined order. Defaults may be taken; 
however, if they are, the subsequent comma must be used. 


ALL other rules that apply to the Single-Open/User-Defined Function. 


MULTIPLE-OPEN/MACRO-DEFINED FIB LIST 


function initiates processing of from one to n files. It builds one 
ithin the user program immediately following the DOPEN command. This 
ed by all files. Storage for the FIB List is automatically allocated. 


,/l*, FIB address, mode, rewind indicator 


symref name,,...e.4 
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The folléwing parameters and respective defaults apply: 


Parameter Value Default Comments 
FIB Address Address Required: Location of FIB for 
files to be opened 
PROCESSING 
MODE OT OT Output 
IN Input 
10 Input/Output Capplies to mass 
storage) 
EX EXTEND (does not apply to GFRC 
on mass storage) 
REWIND Y Y Rewind Option 
Indicator 
N DO NOT REWIND ON OPEN 
Routine 
Package Symref name Required: package of routines 
needed to process the file 
Rules: 


1. The macro provides space for FIB List of 1+2n words where n is the 
number of files to be opened. 


2. Two commas must precede the left bracket. 

3. Each List of parameters for every file must be preceded by an *. 

4. Key words must not appear within the brackets. 

5. Parameters must be Listed in predefined order. Defaults may be taken; 


however, if they are, the subsequent comma must be used. 
6. FIB List address should not be supplied. 


V. ALL other rules that apply to the Single=-Open/User-Defined Function. 
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Put Macro - DLPUT 


Function 


The Put macro places a logical record at the end of the file; thus, the new 
record becomes the last record on the tape file. 


Format 


DLPUT FIB address,VIB address,, 
CVIB-parameter-name-1,VIB-parameter-value-1,..e0, 


VIB-parameter-name-n,VIB-parameter-value-nl 
NOTE: VIB must be defined as BSS 2. 


The Put macro has the following parameters and respective defaults: 


Parameter Name Value Default Comments 
Record Optional 
size Used with variable-length records, 
but ignored with fixed-length 
records. 
RSZ Integer Must be less than or equal to 


RSZ in FIB. 


RSZI Address Location of field 
containing record size 
in bits 0-17. 


Indirect FIBI None Optional 

addressing If this keyword is specified, it 
implies that argument 1 is not the 
actual FIB address, but is a pointer 
to a location that contains the FIB 
address. 


Rules 
1% The designated file must be open for output at the time of execution 
of this statement. 
2. The Put macro uses for input the FIB address, the VIB record size _ if 


specified, the record size word if defined, the process area, and the 
FIB macro values specified at opening. 
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Example 


When a reel becomes full, a new reel is fetched automatically without 


intervention from the user program. 


If a process area is specified in the FIB, the record is moved from 
the process area to the buffer. If an output transliteration table is 
specified, the entire record is transliterated from the internal code 


set to the external code set as it is moved. 


If the record size is not specified and records have variable Length, 


the record size in the record size word parameter is used. If no 
parameter is specified, the FIB record size is used. 


Enter a 65-character record as specified in the VIB. 
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DLPUT FIB,VIB,,CRSZI,VIBSIZI 
VIB BSS 2 
VIBSIZ ZERO 65 
FIB FIBMAC H2,H2000,CINTCOD,HBCD,PROAR,RECORD,O,RSZ,65,LABELF,80] 
RECORD BSS 11 
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Get Next Macro ~ DLGXT 


Function 


The Get Next macro makes the next logical record available. 


Format 


DLGXT FIB address,VIB address,end-of-file address, 


CVIB-parameter~name-1,VIB-parameter-value-1] 


NOTE: VIB must be defined as BSS 1. 


The parameters and respective defaults for the Get Next macro are as 
follows: 


Parameter Name Value Default Comments 
Record Optional 
size Specifies the number of characters 


to be moved from the record to the 
process area when the entire re- 
cord is not required. UFAS stores 
the actual record size in the FIB 
record size word parameter. 


RSZ Integer Must be less than or equal to RSZ 
in FIB. 
RSZI Address Location of field containing 
record size in bits 0-17. 
Indirect FIB FIBI None Optional 
addressing If this keyword is specified, it 


implies that argument 1 is not the 
actual FIB address, but is a pointer 
to a Location that contains the FIB 
address. 


14 The designated file must be open for input before execution of this 
statement. 


2. The Get Next macro uses for input the FIB address, the VIB record size 
and end-of-file return address if specified, and the FIB macro values 
specified at the latest opening. 


38 An end-of-file condition is returned when no next logical record 


exists in the file. This condition is considered an unsuccessful read 
request. Control is returned to the end-of-file address. 
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Example 


If an optional file is not present, then an end-of-file condition is 
returned on the first read request. The end-of-file address receives 
control. 


If the first character of a physical block of a bannered file does not 
match the banner character, no data records are present and block is 
checked to verify if it has an end-of-reel or end-of-file record. If 
the first character of the block matches the banner character, data 
records are present, although one or more records may be padded. 


Pad records may occur in physical blocks containing more than one data 
record (blocked files). On input, pad records are not delivered to 
the user program. 


In multi-reel files, consecutive reels are fetched automatically 
without intervention from the user program. 


If the record size parameter is not specified, the whole record is 
moved to the process area and the record size is made available to the 
user in bits 0-17 of word 0 of the VIB and in the word specified by 
the record size word parameter in the FIB. 


If a VIB is not specified, the whole record is moved to the process 
area and the record size is made available to the user only if a 
record size word parameter is specified in the FIB. 


Get next record in sequential order and move 65 bytes of the record to. the 
user process area. 
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DLGXT FIB,VIB,EOFRET,CRSZ1I,RECSIZ] 
RECSIZ ZERO 65 
VIB BSS 1 


EOFRET NULL 


FIB 


FIBMAC H2,H2000,CINTCOD,HBCD,PROAR,RECORD,0,TYPE,1.AV,LABELF,801 


RECORD BSS | 14 
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Return Macro —- UFSRET 


Function 


The Return macro provides a means of returning control to UFAS after a user 
error procedure is completed. 


Format 


UFSRET ERROR 


ERROR - Must be specified to return from a user error procedure. 


NOTE: Error procedures are specified in the FIB macro. 


Rule 


When a user error procedure contains a UFAS macro, which can result also in 
a user error procedure for another file being entered by UFAS, the second 
procedure must conclude also with a UFSRET return for that particular function. 


Example 
Return to UFAS, which has issued a usef error exit call to the user. 
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UFSRET ERROR 
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Wrap-up Macro oe DWRAP 


Function 


The Wrap-up macro closes files currently open. 


Format 


DWRAP 


ALL opened files are closed with rewind. Device disposition codes are not 
honored. 
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Information Macro - DINFO 


FUNCTION 


The DINFO macro either stores File Access Control Table CFACT) 
or the size of each section of the FACT table 


FORMAT 


DINFO 


FIB address, VIB address, 
Coarameter-name-i1, 


information 
in a user specified table area. 


alternate return address, 
parameter-value-1...., 


Parameter-name-n, parameter-value-n] 


NOTE: 


The parameters’ and 
follows: 


Parameter Name Value 
Function FCT 1 
Code 

2 

3 

4 

5 

6 
Table TBL Address 
Pointer 
Indirect FIBI None 
FIB 


Addressing 


respective 


Default 


VIB must be defined as BSS 1 


defaults for the Information Macro are as 


Comments 


Store FACT section 1 into user table area. 
Includes words FACT-8 through FACT +98 for 
all file types. 


Store FACT section 2 into user table area. 
Includes words QO through +59 for UFF 
Indexed files with no alternate keys: 0 
through +81 for UFF Indexed with alternate 


keys: O through +17 for ANSI/IBM/GFRC and 
UFF tape O through +41 =for ISP; and 0 
through +9 for H2000. 

Store FACT section 3 into user table area. 
Include words 0 through 26 (dec.). 

Store the entire FACT into the user table 


area. 


Store FACT-8 through FACT +5 of 
into user table area. 


section 1 


This option provides FACT information that 
is equivalent to the GFRC FILCB. 


Store the size Cin binary) of FACT sections 
1, 2, and 3 into a 3-word user defined 
table area. Zero will be given as the size 
of section 3 if it is non-existent. 


Required. 
The Location of a table 
contain the requested 


large enough to 
information. 


Optional. 

If this keyword is specified, it implies 
that argument 71 is not the actual FIB 
address, but is a pointer to a location 
that contains the FIB address in bits 0-17. 
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10. 


The designated file must be opened in either the input or output. 


The TBL parameter is required and must point to an area large enough 
to contain the requested information. 


The user must provide an alternate return address. 


If an error is detected during execution of the DINFO macro, UFAS will 
return control to the user via the alternate return except when 
executing the DINFO macro on any unopened file in which case UFAS will 
branch to a users error procedure if it is present or abort. 


A function code of 6 requires a table size of 3 words. After a 
successful execution of a DINFO macro the table will contain the 
following values: 


Word Contents 


1 Size of FACT section 1, right- 
justified. (In Binary) 


2 Size of FACT section 2, right- 
justified. (In Binary) 


3 Size of FACT section 3, right- 
justified. (In Binary) A size of 
zero will be given if section 3 is 
non-existent. 


If not function code (FCT) parameter is specified the entire FACT will 
be given to the user. 


The FACT sizes given in this specificaiton are applicable to SR ADF2. 


This macro may not be executed for files processed under TP or 
I-D-S/II. 


The following error conditions will be identified: 


a. 8-01 File not opened. (CALT return not taken) 

b. FO A potential FO memory fault during DINFO execution = may 
take place because of insufficient table area size. 

c. Fi Invalid function code 

d. Fe The user asked for FACT section 3 and it does not 
exist. 


The sizes, in decimal, of the entire FACT for the various file formats 
are as follows: 


UFF SEQUENTIAL Tape or Mass Store......192 
UFF REE ATEVE cate ieaie eco eee 60 ieete cede ele eee ere BI 
UFF INDEXED 6.66 0 ecdeccec ee ea wh 6 ee wwe eee LI 


TBM ores were S0esbow ave onde bre oe wie atelevee 6 eca oS ee ea le 


RNS A 6 seh Oe 6 be eee ae HS RRR RR ease Le 


HOD Oakes eter ecdeadcd Gi aera a ere et Skee Se eeea Se 
WIN LO Tiao- eGo we ete vee seUe eerie fate vate eae a ape alaceik eres. g Oe 
GFRC Tape and Mass StOrecceuecsacccaceel 2 


LS Pig catacot ee see's ee weed waco eevee Sieve esos: sees ee) 49 
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EXAMPLE 


Store the entire FACT contents of the file specified by FIBI into a table 
specified by TABLE. 
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DINFO FI1B1,VIBI,ALTRET,CFCT,4,TBL,TABLEJ 


FIB1 FIBMAC DA,UFF,CPROAR,RECORD,0,ORG,IND, 


ETC KEYPTR,PRIMEJ],KY 

RECORD BSS 21 

PRIME VFD 1/0,17/0,18/4 
ZERO 

VIBI BSS 1 


TABLE NULL 


ALTRET NULL 


Close Macro - DCLOS 
Function 

The Close macro terminates the processing of one or more files. 
DCLOS consists of the following four functions: 


1. Single-Close/User-befined FIB List 
2e Single-Close/MacrorDefined FIB List 
3. Multiple-Close/User-Defined FIB List 


4. Multiple-Close/Macro-Defined FIB List 


SINGLE-CLOSE/USER-DEFINED FIB LIST 


Format 


DCLOS Ce of FIB List ,Cparameter-name-1, 
FIBLSI,address of pointer to FIB List 


parameter-value-1,...,parameter-name-n,parameter-value-nJ 


-NOTE: FIB List must be defined as BSS 2. 
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The following parameters and respective defaults apply: 


Parameter 


FIB address 


Rewind 
indicator 


Name 


FIBA 


FIBAI 


REW 


REWI 


REWV 


REWVI 


Value 


Address 


Address 


RWFL 


NRFL 


Address 


RWFL 


ult 


Defa 


Comments 


Required 


Location of FIB for file to 


closed. 


Location of FIB..- 


Location of pointer to FIB. 


Optional 
Rewind file on close. 


Do not rewind file. 
(see note). 


Rewind and Lock file 
(see note). 


Lock file without rewind. 
(see note). 


Rewind and unload file 
Csee note). 


be 


Lock file with rewind and unload 


(see note). 

Rewind unit. 

Do not rewind unit. 
Rewind and lock unit. 


Rewind and unload unit. 


Location of rewind indicator 


(4 ASCII uppercase characters). 


Rewind value. 

Rewind file. 

Do not rewind file. 
Rewind and lock file. 
Lock file without rewind. 


Rewind and unload file. 


Lock file with rewind and unload. 


Rewind unit. 
Do not rewind unit. 
Rewind and Lock unit. 


Rewind and unload unit. 


Location of rewind binary represent- 


ation value in bits 18-35. 
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NOTE: 


Rules 


Whenever the Lock parameter is used, the file is disposed of as indicated 
by the disposition code specified on the device control card (see Control 


Cards Reference Manual). The Lock parameter and a save or continue 


disposition code are mutually exclusive. If a file that has an S$ or aC 
disposition code is closed with lock, the Lock request is ignored, the 
file is not rewound or released, and no indication is given to the user 
that the lock request was ignored. 


The Close macro can only be executed for a file that has been opened. 


No more than one rewind indicator parameter can be specified. If none 
is specified, zero is assumed. 


Close file parameters 


No rewind means that the current unit is left in its current position 
following trailer label processing. 


Close file Label processing 

ae For files opened for input: 
Trailer label is checked. 
DOPEN for file is cancelled. 

b. For files opened for output: 
Buffers are flushed and current trailer Label is built. 
DOPEN for file is cancelled. 

Close unit label processing 

a. For files opened for input: 
Trailer label is not checked. 
If next reel is obtained, unit switch takes place, next header 
label is checked, and new reel is ready for execution of a Get 
Next or Close macro. 
If next reel is not obtained (current reel is Last reel of filed, 
old reel is unloaded and file is ready for execution of Get Next 
or Close macro. 
DOPEN is not cancelled. 

b. For files opened for output: 
Buffers are flushed and current trailer label is built. 
If next reel is obtained, unit switch takes place, new header 
Label is built, and reel is ready for execution of a Put or Close 


macro. 


DOPEN is not cancelled. 
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Close the file specified by the file code in the FIB with the rewind 
parameter. . 


ee _ eran 


DCLOS FIBLS,FIBLST,CFIBA,FIB,REWL,RWDTYPJ 


° 


FIBLST BSS 2 

RWOTYP UASCL 1,RWFL 

FIB FIBMAC H2,H2000,CINTCOD,HBCD,PROAR,RECORD,O,LABELF,80] 
RECORD BSS 14 
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SINGLE-CLOSE/MACRO-DEFINED FIB LIST 


Format 


DCLOS ,,UCparameter-name-1,parameter-value-1,...-parameter-name-n, 
parameter-value-n] 


The following parameters and respective defaults apply: 


Parameters Name Value Default Comments 


Same as Single-Close/User-Defined Function 


Rules: 


Ts FIB List address is not to be supplied. 
ce Left bracket must be preceded by two commas. 
Ss ALL Single-Close/User-Defined Function Rules apply. 


MULTIPLE-CLOSE/USER-SUPPLIED FIB LIST 


This function terminates the processing of one to n files. Only one FIB 
List is built, which is utilized by all files to be closed. 


Format 


DCLOS FIBLS, FIB List address ,C*, FIB address, 
ETC RewV, *, FIB address, RewV,*,...--] 
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The following parameters and respective defaults apply: 


Rules: 
io Space for 
number of 
Ze Each List 
3 « Key words 


4. Parameters 
however, i 


5. ALL Single 


This function 
one FIB List in the 
Storage is automat 
closed via this func 


Format 


DCLOS ,, C*,FIB 


ue Default Comments 


ress Required; location of FIB, for 
file to be closed 


Rewind Value 


0 Rewind file 
Do not rewind file 
Rewind and lock file 
Lock file without rewind 
Rewind and unload file 
Lock file with rewind and unload 
Rewind unit 
Do not rewind unit 
Rewind and lock unit 
Rewind and unload unit 


Parameter Val 

FIB address add 

Rewind 

Indicators 
0 
1 
2 
3 
4 
6 
8 
9 
10 
12 


the FIB List must be defined as itn words, where n is_ the 
files to be closed. 


of parameters for every file must be preceded by an *,. 
must not appear within the brackets. 


must be Listed in predefined order. Defaults may be taken; 
f they are, the subsequent comma must be used. 


~Close/User-Defined Function Rules apply. 


MULTIPLE-CLOSE/MACRO-DEFINED FIB LIST 


terminates the processing of from one to n files. It builds 
user program, immediately following the DCLOS command. 
ically allocated, and the List is used by all files that are 
tion. 


Address, REW-V,*,FIB Address2,REW-V,...1 
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The following parameters and respective defaults apply: 


Parameters ; Value Default Comments 


FIB address address Required; location of FIB for 
file to be closed 


REWIND . Rewind value 
INDICATOR 
0 0 Rewind file 
1 Do not rewind file 
2 Rewind and unload file 
3 Lock file without rewind 
4 Rewind and unload file 
6 Lock file with rewind and unload 
8 Rewind unit 
9 Do not rewind unit 
10 Rewind and lock unit 
12 Rewind and unload unit 
Rules: 
Te Two commas must precede the left bracket. 
2. Each List of parameters for every file must be preceded by an *. 
Su Key words must not appear within the brackets. 
4. Parameters must be Listed in predefined order. Defaults may be taken; 


however, if they are, the subsequent comma must be used. 
D The FIB List address should not be supplied. 


6. ALL Single-Close/User-Defined Function Rules apply. 
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SECTION IV 


RELATIVE FILE ORGANIZATION 


A relative file must be allocated as random to a mass storage device and 
can be accessed sequentially, randomly, and dynamically (a combination of 
sequential and random modes). A record is accessed by a relative key or record 
number that is directly proportional to the position of the record in the file. 
Files are opened, processed, and closed by UFAS in response to a FIB macro and 
specific functional macro requests. 


Positioning for sequential access is possible if the file is opened for 
input or input/output processing modes. Using the Get Next record’ function 
provides access to the next logical record in the file. Both the Rewrite and 
Delete functions can be used in the sequential mode after the Get Next record 
function. In the random access mode the functions Put, Rewrite, Get, and Delete 
require the relative key value. For the dynamic access mode, positioning is 
effected in the same manner as for the sequential access mode. The Get next 
record function retrieves the next record and the Get random record function 
retrieves a record based on a relative key. 


Table 4-1 Lists the relative file functions, the functional macros, the 
processing modes, and the access modes with applicable parameters for mass 
storage files. 
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Table 4-1. Relative File Functions and Processing Modes 


UFF Relative Files 


Access Mode Parameters 


Functional Processing Sequential | Random Dynamic 
Function 


| open ——|_—vopen | o, r, 1/0 | Fite-tq__| Fite-1d | File-ta 
Next Relative Relative 
Put DLPUT Record Key Ke 


I/0 (Invalid) Key Key 
Current ge 
” a 
Current oo ee 
Relative Relative 
0 


Next Next 
Get Next DLGXT I, 1/0 Record (Invalid) | Record 
Relative Relative 
Get DLGET ae i 4 CInvalid) Key Key 


xz 
o 
N< 


Checkpoint 
Files and 
Program 


Rollback 
Files and 
Program 
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FILE INFORMATION BLOCK MACRO 


The file information block macro enables the user to communicate the 
specific characteristics of a file to the Unified File Access System. However, 
before any communication can be established with UFAS to process a file, the 
user must invoke the macro package with the command LODM .DMAC. ALL file 
processing information between the user and UFAS is channeled through the _ FIB 
macro. For each file of a user program, a FIB must be coded to define the 
characteristics of the file and the required processing parameters. 


Format 
The format of the FIB macro for a relative file is as follows: 


FIBMAC fc,UFF,Cparameter-name-1,parameter-value-1,..., 


parameter-name-n,parameter-value-nJ 


where: 


fc - file code assigned to file 


Multiple parameter-name and parameter~value combinations constitute a 
keyword-argument arrangement. These combinations may appear in any order within 
the brackets. If a combination of parameter-name and parameter-value is 
omitted, a default value is assumed. If the number of combinations exceeds one 
Line, an ETC card must be used to continue on the following Line. 


Only two parameter-values are required for the process area, file status 
code, and file name. Also, no symbol that defines an address can be repeated in 
another FIB macro. In order to repeat the same address in more than one FIB 
macro (e.g., a common process area) multiple symbols defining the same address 
must be used. Default values should not be specified for parameters that are 
not required, instead allow the default value to be applied automatically. 


The following List contains all the parameters and respective defaults 
available for this FIB macro: 


Parameter Name Value Default Comments 
Number of NBUF Integer<255 N If CISZ is specified, 
buffers CISZ N=16384 bytes (4096 
allocated words). 
by UFAS 

8 If CISZ is not specified. 
Record size RSZ Integer<16128 80 Maximum record size (records 
in bytes are assumed to be of vari- 


able Length). 
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Parameter 


Record size 
word 


Record size 
error 
indication 


File name 


Control 
interval 
size in 
bytes 


External 
code 


Name Value Default 
RSZWRD Address 
0 
IRSZER 
0 0 
1 
FLNAME Address, 
character 
0,0 
CISzZ Integer<16128 2048 
EXTCOD 
ASC ASC 
4-4 


Comments. 


Location of a 36-bit 
binary record size field. 
Record size is returned 
to user on input. 


If no record size word is 
specified, either VIB or. 
FIB record size is used. 


Indicates the action UFAS 

is to take when conflict 
occurs between the actual 
record size and that speci- 
fied by the user in the FIB. 


Record size conflicts are 
ignored. The smallest re~ 
cord size of the actual re-~ 
cord size and FIB record 
size is used as the correct 
record size. 


Execute the error procedures 
specified by the USERER or 
ERRTBL parameters. 


Applies only to Labeled 
files. Location and starting 
byte position of a 1/7-byte 
ASCII file name. 


No file name is provided. 


Code set of the data on the 
external device. This code 
is used with the CISZ para-~ 
meter to calculate the 
number of words to allocate 
per buffer. Also, used with 
the internal code set para- 
meter to establish the size 
of the characters within the 
record and the process area, 
so that the records may be 
converted to this code set 
as they are moved to the 
buffer. 


ASCII character set. 
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Parameter 


Internal 
code 


Checkpoint 


Process 
area 


File status 
code 


User Error 
procedure 


Name 


INTCOD 


CHKPT 


PROAR 


FSCODE 


USERER 


Value | Default 


ASC ASC 


Integer<2” a | 


0 
Address, 
character 
Address, 
character 

0,0 
Address 

0 


Comments 


Code set of the data in the 
process area. Records are 
converted to this code set 
as they are moved to the 
process area. 


ASCII character set. 
EBCDIC character set. 
GBCD character set. 
HBCD character set. 
JIS character set. 


Checkpoints are taken every 
time this many records are 
accessed. 


No checkpoints are taken 
based on record count. 


Location and starting char- 
acter position of an area 
within the user program to 
which records are moved and 
from which they are retrieved 
with Put and Get macros. The 
size of the process area is 
assumed to be equal to the 
FIB record size. 


Location and starting byte 
position of a twor-byte ASCII 
file status code field in 
which UFAS stores a unique 
status code whenever an 
exception condition occurs 
(see Section VIII). 


No file status code field. 
Location of user-supplied 
error procedure to which 
UFAS transfers control when- 
ever an error is detected. 


No user error procedure. 
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Parameter 


Error table 


Input 
translitera- 
tion table 


Name 


ERRTBL 


INPTRN 


Address 


Address 


Default 


Comments 


Location of user-supplied 
table of error procedures 
based on processing mode. 


The format of the error 
table is: 


word 0, bits 0-17: address 
of error procedure for 


files in output mode. 


word 1, bits 0-17: address 
of error procedure for 


files in input mode. 


word 2, bits 0-17: address 
of error procedure for 


files in input/output 
mode. 


(bits 18-35 of each word 
are reserved.) 


When an error is detected, 
control is transferred to 
the appropriate error pro- 
cedure only if the user 
error procedure parameter 
is not specified. If 
neither a user error pro- 
cedure parameter nor an 
error table parameter is 
specified, UFAS aborts 
when an error is detected. 


No user error procedures 
based on processing mode. 


Location of a system or 
user-~supplied transliter- 
ation table. This table is 
used to transliterate the 
characters of a record from 
the external code set to the 
internal code set, as the 
record is moved from the 
buffer to the user's pro- 
cess area. 


Transliteration not re- 
quired. Records are moved 
from the buffer to the 
user's process area without 
transliteration. In this in- 
Stance the internal and ex- 
ternal code sets are usually 
the same. 
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Parameter 
Output 


translitera- 
tion table 


File code 
List 


File 
organization 


Access mode 


Name 


OUTTRN 


FCLST 


ORG 


ACCMOD 


~ Value 


Address 


Address 


REL 


SEQ. 


RAN 


DYN 


Default 


SEQ 


Comments 


Location of a system or 
user~supplied transliter- 
ation table. This table is 
used to transliterate the 
characters of a record from 
the internal code set, as 
the record is moved from 
the user's process area to 
the buffer. 


Transliteration not required. 
Records are moved from the 
user's process area to the 
buffer without transliter- 
ation. In this instance, 

the internal and external 
code sets are usually the 
same. 


If the file resides on more 
than one volume, this para- 
meter defines the Location 
of a List of file codes as- 
signed to the second and 
succeeding volumes of the 
file. The format of the file 
code List is: 


word 0, bits 0-35: number 
of file codes in the 


List, in binary. 


words 1-n, bits O-17: re-~ 
served. 


bits 18-35: file 
code in ASCII. 


Only one file code is as- 
signed to the file. 


Must be supplied. 
Sequential mode (sequential 
only). 

Random mode (random only). 


Dynamic mode (sequential 
and random). 
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Parameter 


Key type 


Name Value Default Comments 


KEYTPE Specifies the type of key 
to be associated with the 
record. For GMAP programs 
the key type should be zero 
or default. Key types 1 
through 4 are provided for 
COBOL and other high-level 
Language processors. 


0 0 Key is a 36-bit binary value 
Located in key pointer para- 
meter. 


1 Key is numeric ASCII (fixed 
point). 


2 Key is BCD numeric packed 
decimal (fixed point). 


3 Key is 16-bit binary. 


4 Key is 32-bit binary. 


Key pointer KEYPTR Address 0 If KEYTPE equals 0, this 


Label 
indicator 


Rules 


parameter is the location of 
the 36-bit binary key. If 
KEYTPE equals 1, 2, 3, or 4, 
this parameter is the loca- 
tion of a descriptor of the 
key field. 


ILABEL Indicates the presence or 
absence of labels. 


0 0 File contains labels. 


1 File does not contain 
Labels. 


The file information block has several assigned fields. If a field is 
not applicable to a particular situation, it is ignored. Fields that 
are set ina conflicting manner cause the open function to return an 
exception condition code to the activity. 


ALL pointers can be reset whenever’ required. Hence, the user. can 
change pointers at will with the Last pointer value always prevailing. 


If system transliteration tables are required, the parameter values 
for the input CINPTRN) and output (COUTTRN) transliteration tables must 
be the SYMREF of the tables. If a user~supplied transliteration table 
is used, the INPTRN and OUTTRN values are the addresses of the 
respective tables. 
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FUNCTIONAL MACROS 


Although each one of the functional macros available for a relative file 
performs a specific function and has its own format and set of rules, which are 
described separately in detail, certain conventions and rules are common to all 
functions. 


The Open and Close macros contain the information that is necessary to open 
or close one or more files with one statement. A common FIB List is built and 
is used by all files to be either opened or closed. The user can either reserve 
space in the program for the FIB List, or can allow the list to be built by the 
macro. 


In order to execute a functional macro, information pertinent to the 


function must be supplied in a variable information block (VIB). The VIB 
address parameter specifies where the variable information is to be located. 
This parameter may be either zero or omitted if no parameters are required. If 


parameters are required, the user supplies values in the macro parameter fields 
to indicate the values to be entered in the VIB for execution of the function. 


Parameters are expressed in pairs containing a keyword and value. Commas 
must be used to separate each parameter name from the parameter value and two 
consecutive pairs of parameters. Parameter names ending in "I" indicate an 
indirect reference to the parameter value. Parameters may be specified in any 
order. If a parameter and its value are omitted, the default value is assumed. 


Normally, registers are saved when UFAS is entered and restored when UFAS 
returns control to the user, except index register 1 which is the transfer 
register. The only exception is when a user error procedure is’ entered. In 
this instance, the user registers are not restored because UFAS is relinquishing 
control only temporarily to allow the user to process the exception condition. 
When control is returned to UFAS (Cat the completion of the error procedure), the 
saved registers are still valid. 
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Open Macro ~- DOPEN 


Function 


The Open macro initiates the processing of one or more files, verifies 
their existence, and establishes tables for file processing. 


DOPEN consists of the following four functions: 


1. Single-Open/User-Defined FIB rer 
rie Single-Open/Macro-Defined FIB List 
as Multiple-Open/User-Defined FIB List 
4 


‘ Multiple-Open/Macro-Defined FIB List 


SINGLE-OPEN/USER-DEFINED FIB LIST 


Format 
DOPEN} FIBLS,address of FIB List ,LCparameter-name-t, 
FIBLSI,address of pointer to FIB list 


parameter-value-1,...,parameter-name-n,parameter-value-nJ 
NOTE: FIB List must be defined as Block Starting Symbol (BSS) 3. 
The parameters and respective defaults for this function are as follows: 


Parameter Name Value Default Comments 


FIB address Required 


Location of FIB for file 
to be opened. 


FIBA Address Location of FIB. 
FIBAI Address Location of pointer to FIB. 
Routine ; Required 
package Location of a UFAS symbol 
SYMREF reference (SYMREF) that 
name corresponds to a set of 
routines used to process 
the file. 
SYM Routine Package of routines needed 
package to process the file. 
SYMREF 
name 
SYMI Address Location of pointer to 


the routine package. 
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Parameter Name Value Default Comments 


Processing . Optional 
mode 


indicator 


MODE OT OT Output 
IN Input 
10 Input/Output 
MODEI Address ‘Location of processing 


mode indicator (2 ASCII 


uppercase characters in 
bits 0-17). 
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Routine Package SYMREF Name 


The Unified File Access System permits the user to utilize the system in 
its entirety or just portions of the system as required. Selection of the UFAS 
routines to be linked at load time is effected by the user with a SYMREF 
(directory) name that designates the specific set of routines desired. Table 
4-2 lists the relative five format characteristics and the corresponding 
directory names. 


Table 4-2. Relative File Format Directories 


Access | Processing Directory Name 
File Format Mode Mode (SYMREF) 


Relative 


Rules 
4 |e The Open macro must be successfully completed before the execution of 
any input/output statements for a file. 
ra After the initial execution of an Open macro for ae file, each 


subsequent DOPEN for this file must be preceded by the execution of a 
Close macro without the lock or unit parameters. 


Ss Open output must be used to create a file. During the open output 
processing the entire file space is initialized to zero. Open input 
is used to read an existing file and open input/output is used to 
update an existing file. 


4. The Open macro does not obtain or release the first data record. 
ae For files being opened for input or input/output, the DOPEN 


establishes the current record pointer so that the first data record 
in the file can be accessed. 


6. For files opened for output, the current record pointer is initialized 
to point to the beginning of the user's data area in the logical data 
space. 
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Example 


Open the relative file specified in FIBAD2 for sequential output. 


1 8 16 

LODM ~DMAC 

SYMREF ~-DRELS i 

DOPEN FIBLSI,LISTAD, FIBA,FIBAD2,SYMI,ADSYM 
LISTAD ARG FIBLST 
FIBLST BSS 3 


FIBAD2 FIBMAC  RF,UFF,CPROAR,RECORD,O,ORG,RELJ 


ADSYM ARG ~DRELS 
RECORD BSS 20 


SINGLE-OPEN/MACRO-DEFINED FIB LIST 


This function initiates processing of only one file. It builds a FIB List 


in the user program immediately following the DOPEN command, and storage is 
allocated automatically. 


Format 
DOPEN ,,Lparameter-name-1,parameter-value-1,...parameter-name-n, 
ETC parameter-value-n] 


The following parameters and respective defaults apply. 
Parameter Name Value Default Comments 


Same as Single-Open/User-Defined Function. 


1% Do not supply FIB List address. 
ae Left bracket must be preceded by two commas. 


Se All other rules that apply to the Single-Open/User-Defined Function. 
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MULTIPLE-OPEN/USER~SUPPLIED FIB LIST 


4-14 


This function initiates the processing of from one to n files. It builds 
one FIB List, which is used by all files. 
Format 
DOPEN FIBLS, FIB List address, [*, FIB address, mode, 
ETC rewind indicator, symref name, *, FIB address 2, 
ETC mode 2, rewind indicator 2, symref 2,....] 
The following parameters and respective defaults apply: 
Parameter Value Default Comments. 
FIB Address Address Required: location of FIB for 
files to be opened 
PROCESSING . 
MODE OT OT Output 
IN Input 
10 Input/Output Capplies to mass 
storage) 
EX EXTEND (does not apply to GFRC 
on mass storage) 
REWIND Y Y Rewind Option 
Indicator 
N DO NOT REWIND ON OPEN 
Routine 
Package Symref name Required: package of routines 
needed to process the file 
Rules: 
1: Space for the FIB List must be defined as 1+2n words where n is’ the 
number of files to be opened. 
2. Each List of parameters for every file must be preceded by an *. 
3% Key words must not appear within the brackets. 
4. Parameters must be listed in predefined order. Defaults may be taken; 
however, if they are, the subsequent comma must be used. 
5. All other rules that apply to the Single-Open/User-Defined Function. 
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This function 


MULTIPLE-OPEN/MACRO-DEFINED FIB LIST 


List within the user program 


is used by all files. 


Format 


DOPEN 


ETC 


-/l*, FIB address, mode, 


symref name,*,e.eeeed 


initiates processing of from 1 ton files. It builds one FIB 


immediately following the DOPEN command. This List 


Storage for the FIB List is automatically allocated. 


rewind indicator 


The following parameters and respective defaults apply: 


however, 


Parameter Value Default Comments 
FIB Address Address Required: Location of FIB for 
files to be opened 
PROCESSING 
MODE OT OT Output 
IN Input 
10 Input/Output Capplies to mass 
storage) 
EX EXTEND (does not apply to GFRC 
on mass storage) 
REWIND Y Y Rewind Option 
Indicator 
N DO NOT REWIND ON OPEN 
Routine 
Package Symref name Required: package of routines 
needed to process the file 
Rules: 
Ts Two commas must precede the Left bracket. 
ra Each List of parameters for every file must be preceded by an *. 
3% Key words must not appear within the brackets. 
4. Parameters must be Listed in predefined order. Defaults may be taken; 


if they are, the subsequent comma must be used. 


5s FIB List address should not be supplied. 


6. ALL other rules that apply to the Single-Open/User-Defined Function. 
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Put Macro — DLPUT 


Function 


The Put macro places a logical record in the file. 


Format 


DLPUT FIB address,VIB address,alternate return address, 
CVIB-parameter-name-1,VIB-~parameter-value-1,..., 


VIB-parameter-name-n,VIB-parameter-value-nJ 
NOTE: VIB must be defined as BSS 2. 


The Put macro has the following parameters and respective defaults: 


Parameter Name Value Default Comments 
Record size Optional 
RSZ Integer Must be less than or equal 
to RSZ in FIB 
RSZI Address Location of field contain- 
ing record size in bits 0-17 
Indirect FIB -FIBI None Optional 
addressing If this keyword is specified 


it implies that argument 1 
is not the actual FIB ad- 
dress, but is a pointer to 

a location that contains the 
FIB address. 


Rules 


1. The designated file must be open for output or 1/0 at the time of the 
execution of this statement. 


2. The current record pointer is unaffected by the execution of a Put 
macro. , 
5. The maximum record size for a file is established at the time the file 


is created and cannot subsequently be changed. 


4. When a relative file is opened in the output mode, the Put macro 
places records in the file as follows: 


a. If the access mode is sequential, the first record has a relative 
key value of 1, and subsequent records have relative key values 
of 2, 3, 4, etc. The relative key value is returned after the 
function is successfully completed (CKEYPTR). 
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Example 


b. If the access mode is .random or dynamic, the key type and key 
pointer parameters in the FIB must be initialized with the 
relative key value to be associated with the record; that is, the 
first PUT may specify relative key value 60, the second PUT key 
value 90, the third PUT key value 20, etc. The invalid key 
condition results when the relative key value specifies a record 
that already exists. Control is returned to the alternate return 
address. 


When a relative file is opened for I/0 and the access mode is random 
or dynamic, the value of the key data item to be written to the file 
must be initialized by the program with the relative record number. 
An invalid key condition results if the relative key value specifies a 
record that already exists. Controit is returned to the alternate 
return address. 


When an attempt is made to write beyond the externally defined 
boundaries of a relative file, an exception condition results and the 
file is unaffected. Control is returned to the alternate return 
address. 


When the invalid key condition is recognized, the execution of the 
write function is unsuccessful and the contents of the record area are 
unaffected. Control is returned to the alternate return address. 


If an output transliteration table is specified, the entire record is 
transliterated from the internal to the external code set as the 
record is moved to the buffer. 


If the record size is not specified, the record size in the FIB record 
size word parameter is used. If no parameter is specified, the FIB 
maximum record size is used. 


Put a 2?/-byte record in the file specified by FIB1. 


1 8 16 
DLPUT FIB1,V1B1,ALT1,CRSZ,27] 
FIB1 FIBMAC RF,UFF,CPROAR,RECORD,O,ORG,RELJ 
VIB1 BSS 2 
ALT1 NULL 
RECORD BSS 20 
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Rewrite Macro - DLRWR 


Function 


The 


Format 


DLRWR 


NOTE: 


follows: 


Parameter 


Rewrite macro causes the specified record to be rewritten to the file. 


FIB address,VIB address,alternate return address, 


CVIB-parameter-name-1,VIB-parameter-value-1] 


VIB must be defined as BSS 1. 


The parameters and respective defaults for the Rewrite macro are as 


Name Value Default Comments 


Record size Optional 


Specifies the number of 
characters. of the record 
to be rewritten. 


RSZ Integer Value must be equal to 
the size of the record 
being replaced. 


RSZI Address Location of record size 
field in bits O-17. 


Indirect FIB FIBI None Optional 


addressing 


Rules 


If this keyword is specified 
it implies that argument 1 
is not the actual FIB ad- 
dress, but is a pointer to a 
Location that contains the 
FIB address. 


The designated file must be open for I/0 at the time of execution of 
this statement. 


For files opened for sequential access, the Last input/output function 
executed for the associated file, prior to the execution of the DLRWR 
macro, must have been a successfully executed DLGXT. 


The size of the record must be equal to the size of the record being 
replaced. 


The current record pointer is not affected by the execution of a DLRWR 
function. 
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5. For a 


Logically 


relative file opened for random or dynamic access, UFAS 
replaces the record specified by the contents of the 
relative key. 
is 


If the file does not contain the record or the record 


logically deleted, the invalid key condition is returned. Control 
is returned to the alternate return address. 


6. When the rewrite is unsuccessful, the file is unaffected. 


rar If the record size is not specified, the record size in the FIB record 
size word parameter is used. If no parameter is specified, the FIB 
maximum record size is used. 


Example 


Rewrite 
error, return to ALT. 


ADRSZ 
FIB 


VIB 
ALT 


RECORD 


a 2QO-byte record in the file specified in the FIB. On a logical 


16 


FIB,VIB,ALT,CRSZ1I,ADRSZ] 


20 
RF,UFF,CPROAR,RECORD,0,0RG,RELJ 


20 
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Delete Macro ~ DLDEL 


Function 


The Delete macro logicaliy deletes a record from a file. 


Format 


DLDEL FIB address,,alternate return address,Cparameter-name-1] - 


The parameters and respective defaults for the Delete macro are as follows: 


Parameter Name Value Default Comments 
Indirect FIB  FIBI None - > ; Optional 
addressing If this keyword is speci- 


fied, it implies that argu- 
ment 1 is not the actual FIB 


address, but 


is a pointer to 


a location that contains the 


FIB address. 


Rules 


Nie The designated file must be open in the I/0 mode at the 


execution of this statement. 


Zs For a file opened in the sequential access mode, 


of the 


statement 


executed for this file prior to the execution of the DLDEL function 


must have been a successful DLGXT. 


3. For a relative file opened for random or dynamic’ access, 


record 


identified by the relative key field (KEYPTR) in the FIB is Logically 


deleted from the file. If the record does not exist, an 
condition is returned and the alternate return is taken. 


4. The current record pointer is not affected by the execution 


DLDEL function. 


invalid key 


of the 
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Example 


Delete the record specified in 


FIB2 and on a logical error execute the 
procedure at ALT2. 


1 8 16 
DLDEL FIB2,,ALT2 
FIB2 a RF ,UFF,CPROAR,RECORD,O,0RG,RELI 
ALT2 a 
RECORD - 20 


> 
| 
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Posi ion Macro - DLPOS 


Function 


The Position macro provides for logically positioning the file for 
subsequent access. 


Format 

DLPOS FIB address,VIB address,alternate return address, 
CVIB8-parameter-name-1,VIB-parameter-value-t, 
VIB-parameter-name-2,VIB-parameter-value-2] 


NOTE: VIB must be defined as BSS 2. 


The Position macro has the following parameters and respective defaults: 


Parameter Name Value Default Comments 
File BEGIN FILE Optional 
beginning Device is positioned at 


beginning of file. 


Backward Optional 

positioning Specifies the number of 
Logical records to be 
skipped over in the 
backward direction. 


BACK Integer Number of logical records 
to be skipped over in the 
backward direction. 


BACKI Address Location containing a 
36-bit binary value 
representing the number 
of logical records to be 
skipped over in the back- 
ward direction. 
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Parameter 


Forward 
positioning 


Random 
positioning 


Number of 
Logical 
records 
skipped over 


Indirect FIB 
addressing 


Name 


FORW 


FORWI 


FCT 


FCTI 


OUTNBI 


FIBI 


Value 


Integer 


Address 


EQ EQ 


GT 


GE 


Address 


Address 


None 


Default 


Comments 


Optional 

Specifies the number of 
Logical records to be 
skipped over in the for- 
ward direction. 


Number of Logical records 
to be skipped over in the 
forward direction. 


Location containing a 
36-bit binary value 
representing the number of 
Logical records to be 
skipped over in the forward 
direction. 


Optional 
Positions the file to a 
relative key. 


Means equal to the specified 
key. The key in question is 
described by the key type 
and key pointer parameters 
in the file information 
block. 


Means greater than the 
specified key. 


Means greater than or equal 
to the specified key. 


Location of a word having 
FCT value in bits O-17 in 
ASCII. 


Optional 

Location in which a 36-bit 
binary value representing 
the number of Logical re- 
cords actually skipped over 
is returned. Only when back- 
ward or forward positioning 
is used. 


Optional 

If this keyword is speci- 
fied, it implies that argu- 
ment 1 is not the actual FIB 
address, but is a pointer to 
a location that contains the 
FIB address. 
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Rules 


The designated file must be open in the input or input/output 
processing mode. 


If an end-of-file is encountered before n logical records’ are 
bypassed, the number of logical records actually skipped over is 
returned to the user through the OUTNBI parameter. If the contents of 
the OUTNBI parameter do not equal the original input parameter, the 
value of this parameter must be checked to determine if an end-of-file 
condition occurred. 


If a beginning-of-file is encountered before n logical records’ are 
bypassed, the number of logical records actually skipped over is 
returned to the user through the OUTNBI parameter. If the contents of 
the OUTNBI parameter do not equal the original input parameter, the 
value of this parameter must be checked to determine if a 
beginning-of-file condition occurred. 


The type of comparison specified Cequal to, greater than, or equal to 
or greater than) occurs between the key associated with a record in 
the file and a data item defined by the relative key field (KEYPTR in 
FIB). 


If no VIB parameter is specified, the relational operator equal to is 
implied by default. 


If the comparison is not satisfied, execution is unsuccessful if the 
position of the current record pointer is undefined. An invalid key 
condition is returned. The alternate return is taken. 


7. The relative key 
file 


Examples 


Rewind file. 


1 8 16 
DLPOS FIB1,V1B1,ALT1,CBEGIN, FILE] 
VIB BSS 2 
FIB1 FIBMAC RF,UFF,CPROAR,RECORD,O,O0RG,RELI 
ALT1 NULL 
RECORD BSS 20 


is pointed to by the KEYPTR field of word 
information block. 


of the 
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Backspace one logical record. 


VIB2 
TRUENB 
FIB2 


ALT2 


RECORD 


8 16 

DLPOS. FIB2,VIB2,ALT2, CBACK,1,0UTNBI, TRUENBI 
BSS 2 

DEC 0 


FIBMAC RF,UFF,CPROAR,RECORD,0,0RG,RELI 


BSS 20 


Skip over four logical records in the forward direction. 


V1IB3 
RECNB 
TRUENB 
FIB3 


8 16 

DLPOS FIB3,V1IB3,ALT3,CFORWI,RECNB,OUTNBI, TRUENBI 
BSS 2 

DEC 4 

DEC 0 

FIBMAC RF,UFF,CPROAR,RECORD,O,ORG,RELJ 


ALT3 


RECORD 


BSS 20 


Position a file to a specified key. 


VIB4 
FIB4 


ALT 


RECORD 


8 16 
DLPOS FIB4,VIB4,ALT4,CFCT,EQJ 
BSS 2 


FIBMAC RF,UFF,CPROAR,RECORD,0,ORG,REL,ACCMOD,DYNI 


BSS 20 
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Set the current record pointer to the record with relative record number 
greater than or equal to the relative record number specified in the FIB. If 
such a record does not exist, execute the code at ALT. 


1 8 16 | | | 
DLPOS FIB,VIB,ALT,CFCT,GE] 
VIB BSS 2 
FIB FIBMAC RF,UFF,CPROAR,RECORD,O,ORG,REL,ACCMOD,DYNI 
ALT NULL 
RECORD BSS 20 


4 
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Get Next M 


Function 


The 
relative k 


Format 


DLGXT FIB 


The p 
follows: 


Parameter 


Indirect F 
addressing 


Rules 


acro = DLGXT 


Get Next macro makes the next Logical record available in ascending 
ey order. 


address,,end-of-file address,Cparameter-name-1] 


arameters and respective defaults for the Get Next macro are as 


Name Value Default Comments 


IB FIBI None Optional 
If this key word is speci- 
fied, it implies that argu-~ 
ment 1 is not the FIB ad- 
dress, but is a pointer to 
a location that contains 
the FIB address. 


The designated file must be open for input or I/O at the time this 
function is executed. 


If the next Logically sequential record was deleted, it is bypassed. 


An end-of-file condition is returned when no next logical record 
exists in the file. This condition is considered an unsuccessful read 
request. Control is returned to the end-of-file address. 


If the position of the current record pointer is undefined, an _ error 
condition results. The current record pointer is not defined 
following an unsuccessful read request. 


The content of relative key field (KEYPTR) is updated so that it 
contains the relative record number of the record made available. 


The record is moved from the buffer to the process area. If an input 
transliteration table is specified, the entire record is 
transliterated from the external to the internal code set as_ the 
record is moved. 


The size of the record is returned to the user in the FIB record” size 
word parameter. 
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Example 


Get the next record. If end of file, go to ALT. 


ee a 
DLGXT FIB,,ALT. 
FIB re RF ,UFF,CPROAR,RECORD,0O,ORG,REL] 
ALT ae 
RECORD “ss 20 


> 
( 
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Get Macro - DLGET 


Function 


The Get macro makes available a specified record based on a relative key. 


Format 


DLGET FIB address,,alternate return address,Cparameter-name-1] 


The parameters and respective defaults for the Get macro are as follows: 


Parameter Name Value Default Comments 
Indirect FIB FIBI None Optional 
addressing If this key word is speci- 


fied, it implies that argu- 
ment 1 is not the FIB ad- 
dress, but is a pointer to 
a location that contains 
the FIB address. 


Rules 


1. The designated file must be open for input or 1/0 at the time this 
function is executed. 


2. Following the unsuccessful execution of any ODLGET function, the 
position of the current record pointer is undefined. The contents of 
the associated record area remain undisturbed. 


3. The execution of a DLGET sets the current record pointer to, and makes 
available, the record whose relative record number is contained in the 
relative key field (KEYPTR) specified in the FIB. If the file does 
not contain such a record, an error condition exists and execution of 
the DLGET is unsuccessful. Control is returned to the alternate 
return address. 


4. The record is moved from the buffer to the process area. If an input 
transliteration table is specified, the entire record is 
transliterated from the external to the internal code set asthe 
record is moved. 


Ss The size of the record is returned to the user in the FIB record size 
word parameter. 
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Example 


pay 


Get the record with relative record number equal to that specified on the 
FIB. If it is not an active record return to ALT. 


DLGET FIB,,ALT 
FIB roma RF,UFF,CPROAR,RECORD,O,ORG,REL,ACCMOD,RAN] 
ALT ii 
RECORD a 20 


Return Macro -~- UFSRET 


Function 


The Return macro provides a means of returning control to UFAS after a user 
error processing procedure is completed. 


Format 
UFSRET ERROR 


NOTE: User error procedures are specified in the FIB macro via the user error 
procedure and error table parameters. 


Rule 


When a user error procedure contains a UFAS macro, which can result also in 
a user error for another file being entered by UFAS, the second procedure must 
conclude also with a UFSRET return for that particular function. 


Example 


Return to UFAS after a user error exit. 


1 8 16 


UFSRET ERROR 


4-31 DC89-03 


Information Macro - DINFO 


FUNCTION 


The DINFO macro either stores File Access Control Table (FACT) information 
or the size of each section of the FACT table in a user specified table area. 


FORMAT 


DINFO FIB address, VIB address, alternate return address, (Cparameter-name-1, 
parameter-value-1...., parameter-name-n, parameter-value-nJ 


NOTE: VIB must be defined as BSS 1 


The 
follows: 


Parameter 


Function 
Code 


Table 
Pointer 


Indirect 
FIB 
Addressing 


parameters and 


Name 


FCT 


TBL 


FIBI 


Value 


1 


Address 


None 


respective 


Default 


defaults for the Information Macro are as 


Comments 


Store FACT section 1 into user table area. 
Includes words FACT-8 through FACT +98 for 
all file types. 


Store FACT section 2 into user table area. 
Includes words Q through +59 for UFF 
Indexed files with no alternate keys: 0 
through +81 for UFF Indexed with alternate 
keys; O through + 17 for ANSI/IBM/GFRC and 
UFF Tape, O through +41 =for ISP and 0 
through +9 for H2000. © 


Store FACT section 3 into user table area. 
Include words 0 through 26 (dec.) 


Store the entire FACT into the user table 
area. 


Store FACT~8 through FACT +5 of section 1 
into user table area. 


This option provides FACT information that 
is equivalent to the GFRC FILCB. 


Store the size Cin binary) of FACT sections 
1, 2, and 3 into a 3-word user defined 
table area. Zero will be given as the size 
of section 3 if it is non-existent. 


Required. 
The Location of a table large enough to 
contain the requested information. 


Optional. 

If this keyword is specified, it implies 
that argument 1 is not the actual FIB 
address, but is a pointer to a location 
that contains the FIB address in bits 0-17. 
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10. 


The designated file must be opened in either the input, I/0 or output. 


The TBL parameter is required and must point to an area large enough 
to contain the requested information. 


The user must provide an alternate return address. 

If an error is detected during execution of the DINFO macro, UFAS will 
return control to the user via the alternate return except when 
executing the DINFO macro on any unopened file in which case UFAS will 
branch to a users error procedure if it is present or abort. 

A function code of 6 requires a table size of 3 words. After a 
successful execution of a DINFO macro the table will contain the 
following values: 


Word Contents 


1 Size of FACT section 1, right- 
justified. (In Binary) 


2 Size of FACT section 2, right- 
justified. (In Binary) 


3 Size of FACT section 3, right- 
justified. (In Binary) A size of 
zero will be given if section 3 is 
non-existent. 


If no function code (FCT) parameter is specified the entire FACT will 
be given to the user. 


The FACT sizes given in this specification are applicable to SR ADF2. 


This macro may not be executed for files processed under TP or 
I-D-S/II. 


The following error conditions will be identified: 


a. 8-01 File not opened. CALT return not taken) 


b. FO A potential FO memory fauilt during DINFO execution may take 
place because of insufficient table area size. 

c. Fi Invalid function code 

d. F2 The user asked for FACT section 3 and it does not exist. 


The sizes, in decimal, of the entire FACT for the various file formats 
are as follows: 


UFF SEQUENTIAL Tape of Mass Storage....192 
UFF RECAT IVE sica cies cs cOee ae Owe Caw eeaawae ve 
UFF INDEXED id dc ww os a oS Seu bene we Seta lee 


TOR tcc bees 6 aca dee Mae eel ew eater eeuroae ew Poe 


RNS iis Gk Ge are eve wate a Oe ewe te ee cake Loe 


H2O00 sb 6x0 & Sis wie wiate ores w Sica we he Oe ne eweewee 10 
UU NT eae cats eco taro. te weak Ga Ww ee a whe eee wea eae Oe 
GFRC Tape and Mass Storage.secccccceeeeenl de 


TSP vik e ose eee a Moe ORES awe ee ee we tae ow sere? 
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EXAMPLE 


Store the entire FACT contents of the file specified by FIBI into a table 
specified by TABLE. 


a re ee , 
DINFO  FIB1,VIBI,ALTRET,CFCT,4,TBL, TABLE] 


FIB1 FIBMAC DA,UFF,CPROAR,RECORD,O,ORG,IND, 


ETC KEYPTR,PRIMEI,KY 

RECORD BSS 21 

PRIME VED 1/0,17/0,18/4 
ZERO 

VIBI BSS 1 


TABLE NULL 


ALTRET NULL 
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Checkpoint Files Macro - DCKPF 


ion 


Funct 


Forma 


DCKPF 


The Checkpoint Files macro establishes a checkpoint for all open files. 


Rules 


t 

1. All randomly allocated files written by the program must have 
ABORT/ROLLBACK/ protection. 

26 ALl opened files are included in the checkpoint. 

De The macro must be executed at a point from which processing of 
files can be resumed if a rollback does occur, since the program is 
not checkpointed. 

4. The macro performs the buffer flush before establishing 


checkpoint. 


ae For any files being processed with ACCESS/MONITOR/ (see 


Management Supervisor manual), buffers are set empty and the record 


pointer is set to undefined. 


6. Checkpoint is taken only if protected files are present and have 
opened. 
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Checkpoint Files and Program Macro ~- DCKPT 


Function 


The Checkpoint Files and Program macro establishes a checkpoint for all 
open files and for the program. 


Format 


DCKPT 


Rules 
Ave ALL randomly allocated files written by the program must have FMS 
ABORT/ROLLBACK/ protection. 
2. All open files are included in the checkpoint. 


i The macro must be executed at a point from which processing of the 
files can be resumed if a rollback does occur. 


4. The macro performs the buffer flush before establishing the 
checkpoint. 


oe For any files being processed with ACCESS/MONITOR/ (see File 


Management Supervisor manual), buffers are set empty and the record 
pointer is set to undefined. a 


6. A Q@X file Large enough to accommodate the program must be allocated, 
but not declared in. the user program (see Program Recovery/Restart 
manual). 

T% Checkpoint is taken only if protected files are present and have’. been 
opened. 

8. The @ register (lower 18 bits) contains the status code returned by 


MME GECHEK as described in the General Comprehensive Operating 
Supervisor manual. Zero status indicates a successful checkpoint. 
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Rollback Files Macro ~- DROLF 


Function 


The Rollback Files macro restores the files open at the time of the 
previous checkpoint to their state at that time. The effect is to cancel all 
changes to the files since the previous checkpoint. 


Format 


DROLF 


Rules 
Ta A DCKPF or ODCKPT macro must be executed before performing the 
rollback. 


Re After a rollback, the current record pointer is undefined. 
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Rollback Files and Program Macro ~ DROLP 


Function 


The Rollback Files and Program macro restores.the program and all files 
that are open at the time of the previous checkpoint to their state at that 
time. The effect is to cancel all changes to the files since the checkpoint and 
to restart the program from that point. 


Format 

DROLP 

Rules 
T. A OCKPT macro must be executed before a rollback is executed. 
2. After a rollback, the current record pointer is undefined. 


4-38 DC89-03 


Wrap-up Macro ~- DWRAP 


Function 


The Wrap-up macro closes files currently open. 


Format 


DWRAP 


Rule 


ALL opened files are closed. Device disposition codes are not honored. 
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Close Macro - DCLOS 


Function 


The Close macro 


terminates 


the processing of one or more files. DCLOS 
consists of the following four functions: 


Vs Single-Close/User-Defined FIB List 


2% Single-Close/Macro-Defined FIB List 


3. Multiple-Close/User-Defined FIB List 


4. Multiple-Close/Macro-Defined FIB List 


Format 


DCLOS } FIBLS,address of FIB List 
FIBLSI,address of pointer to FIB list 


SINGLE~CLOSE/USER-DEFINED FIB LIST 


} ,LCparameter-name-1, 


parameter-value-1,...,parameter~name-n,parameter-value-nJ 


NOTE: FIB List must be defined as BSS 2. 


The following parameters and respective defaults apply: 


Parameter Name 


FIB address 


FIBA 


FIBAI 


Rewind 
indicator 


REW 


REWI 


REWV 


REWVI 


Value 


Address 


Address 


RWFL 
LKFL 


Address 


Address 


Default 


RWFL 


Comments 


Required 

Location of FIB for file 
to be closed. 

Location of FIB. 


Location of pointer to FIB. 


Optional 


Rewind file on close. 

Lock file (see note). 

Location of rewind indicator 
(4 ASCII uppercase char- 
acters). 

Rewind value. 

Rewind file. 

Lock file (see note). 
Location of rewind binary 


representation value in 
bits 18-35. 
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NOTE: Whenever the lock parameter is used, the file is disposed of as indicated 
by the disposition code specified on the device control card (see Control 
Cards Reference Manual). The Lock parameter and a save or continue 
disposition code are mutually exclusive. If a file that has an S$ or ac 
disposition code is closed with lock, the Lock request is ignored, the 
file is not rewound or released, and no indication is given to the user 
that the lock request was ignored. 


Rule 

The Close macro can only be executed for a file that was opened with DOPEN. 
Example 

Close and lock the file specified in the FIB at ADF. 

1 8 16 

DCLOS FIBLS,LIST3,CFIBA,ADF,REWV, 3] 

LIST3 BSS 2 

ADF FIBMAC RF,UFF,CPROAR,RECORD,0O,0RG,RELI 

RECORD BSS 20 

SINGLE-CLOSE/MACRO-DEFINED FIB LIST 
Format 
DCLOS ,,Lparameter-name-1,parameter-value-1,...parameter-name-n, 
parameter-value-n] 

The following parameters and respective defaults apply: 

Parameters Name Value Default Comments 


Same as Single~Close/User~Defined Function 


Rules: 


ty FIB List address is not to be supplied. 
2. Left bracket must be preceded by two commas. 


Se ALL Single-Close/User-Defined Function Rules apply. 
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MULTIPLE~CLOSE/USER-SUPPLIED FIB LIST 


This function terminates the processing of one to n files. Only one FIB 
List is built, which is utilized by all files to be closed. _ 


Format 


DCLOS FIBLS, FIB List address ,(*, FIB address, 
ETC RewV, *, FIB address, RewV,*,eceeed 


The following parameters and respective defaults apply: 
Parameter Value Default Comments 


FIB address address Required; location of FIB, for 
file to be closed 


Rewind 
Indicators 
0 0 Rewind file 
1 Do not rewind file 
2 Rewind and lock file 
3 Lock file without rewind 
4 Rewind and unload file 
6 Lock file with rewind and unload 
8 Rewind unit 
9 Do not rewind unit 
10 Rewind and Lock unit 
12 Rewind and unload unit 
Rules: 
1. Space for the FIB List must be defined as 1+n words, where n is the 
number of files to be closed. 
es Each List of parameters for every file must be preceded by an *. 
3% Key words must not appear within the brackets. 
4. Parameters must be Listed in predefined order. Defaults may be taken; 


however, if they are, the subsequent comma must be used. 


5. ALL Single-Close/User-Defined Function Rules apply. 


MULTIPLE-~CLOSE/MACRO-DEFINED FUNCTION 


This function terminates the processing of from one to n files. It builds 
one FIB List in the user program, immediately following the DCLOS command. 
Storage is automatically allocated, and the List is used by all files that are 
closed via this function. 
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Format 
DCLOS ,, [*,FIB Address, REW-V,*,FIB Address2,REW-V,...4 
The following parameters and respective defaults apply: 
Parameters Value Default Comments 


FIB address address Required; location of FIB for 
file to be closed 


REWIND Rewind value 
INDICATOR 
0 0 Rewind file 
1 Do not rewind file 
2 Rewind and unload file 
3 Lock file without rewind 
4 Rewind and unload file 
6 Lock file with rewind and unload 
8 Rewind unit 
9 Do not rewind unit 
10 Rewind and lock unit 
12 Rewind and unload unit 
Ruless 
5 Two commas must precede the left bracket. 
2. Each List of parameters for every file must be preceded by an *. 
oe Key words must not appear within the brackets. 
4. Parameters must be Listed in predefined order. Defaults may be taken; 


however, if they are, the subsequent comma must be used. 
a6 The FIB List address should not be supplied. 


6. ALL Single-Close/User-Defined Function Rules apply. 
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SECTION V 


INDEXED FILE ORGANIZATION 


A UFF indexed file must be allocated as random to a mass storage device. 
When the indexed file is created, the records are placed on the file in physical 
and Logical sequential order. Each record is identified by a unique key that is 
entered in the prime key field. In addition, an index file is built at the same 
time as the data file. An indexed file can be accessed sequentially, randomly, 
and dynamically. Files are opened, processed, and closed by UFAS in response to 
a FIB macro and specific functional macro requests. 


Positioning can be effected in the sequential and dynamic access modes if 
the file is opened for input or input/output. When the Put function is used to 
add records to a file, which is opened for input/output, the records are’ Linked 
in logical sequential order. 


An indexed file can be accessed with an alternate key by executing a DLPOS 
or a DLGET macro. The alternate key to be used is described by the parameters 
applicable to these macros. The value of the alternate key must be placed in 
the appropriate offset in the process area before UFAS is called. No 
restriction exists on the number of alternate keys that can be used. 


A Get Next macro can be used to access an indexed file sequentially in 
accordance with an alternate key sequence. The alternate key used must have 
been established as the key of reference by previously executing a DLGET or 
DLPOS macro. 


Additional buffers should be provided when using alternate keys. A minimum 
of five buffers for the first alternate key and more buffers for additional 
alternate keys increases throughput. 


In an activity where an indexed file with alternate keys is being created 
Coutput processing only), UFAS performs a sort. No other sort files can be 
included in this activity. 


Table 5-1 Lists the indexed file functions, the functional macros, the 
processing modes, and the access modes with applicable parameters for indexed 
files. 
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Table 5-1. Indexed File Functions and Processing Modes 


UFF Indexed Files 


Access Mode Parameters 


, I, 1/0 | File-Id File-Id File-Id 
(Invalid) Prime Key 


| ouput | tvo 3 

[rewrite | otewe | r/o [Record [eatna Kaye 2 
Rewrite DLRWR 1/0 Record Prime Ke 

Posiese | ouees | avo [acces [orien en [ grin ter — 
Delete DLDEL 1/0 Record Prime Key Prime Key 


Key of Key of 
DLPOS I, 1/0 Reference (Invalid) Reference 
pusxt | 1, 1/0 (invalid) 


Key of Key of 
Get DLGET I, 1/0 (Invalid) Reference Reference 
1/0 a 
DROLP le 


Function 


7 


Put DLPUT 


Put DLPUT 


Checkpoint 
Files and 
Program 


~nAmO 
ae ST 
—- oO 
oo 
nx 
ne) 
° 
ate 
3 
et 


Rollback 
Files and 
Program 


DCKPT we | 


= 
“~ 
r<) 
ue) 
Cc 
ao) 
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FILE INFORMATION BLOCK MACRO 


The file information block macro provides the user with an efficient means 
of communicating to the Unified File Access System the specific characteristics 
of a file. However, before any communication can be established with UFAS, the 
user must invoke the macro package with the command LODM .DMAC. ALlt file 
processing information between the user and UFAS is channeled through the FIB 
macro. For each file to be accessed, a FIB must be coded in the user program to 
define the characteristics of the file and the required processing parameters. 


Format 
The format of the FIB macro for a UFF indexed file is as follows: 


FIBMAC fc,UFF,Cparameter-name-1,parameter-value-1,..., 


parameter-name-n,parameter-value-nJ,fci 


where: 
fc - file code assigned to data file 
fci - file code assigned to index file 


Multiple parameter-name and parameter-value combinations constitute a 
keyword-argument arrangement. These combinations may appear in any order within 
the brackets. If a combination of parameter-name and parameter-value is 
omitted, a default value is assumed. If the number of combinations exceeds one 
Line, an ETC card must be used to continue on the following Line. 


Only two parameter-values are required for the process area, file status 
code, and file name. Also, no symbol that defines an address can be repeated in 


another FIB- macro. In order to repeat the same address in more than one FIB 
macro (e.g., a common process area) multiple symbols defining the same address 
must be used. Default values should not be specified for parameters that are 


not required, instead allow the default value to be applied automatically. 
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The following List contains all the parameters and respective defaults 
available for this FIB macro: 


Parameter Name Value Default Comments 
Number of NBUF 3<Cminimum) N If CISZ is specified, 
buffers allo- Integer < 255 CISz N=16384 bytes (4096 
cated by UFAS words). 

8 If CISZ is not specified. 


Note: Additional buffers 
should be provided when 
using alternate keys. A 
minimum of five buffers for 
the first alternate key and 
more buffers for additional 
alternate keys increases 
throughput. 


Record size RSZ Integer<16096 80 Maximum record size (records 

in bytes are assumed to have variable 
Length). 

Control CISsz Integer<16128 2048 


interval size 
in bytes or 
characters 


Record size RSZWRD Address Location of a 36-bit binary 
word record size field. Record 
size is returned to user on 
input. 
0 If no record size is speci-~ 


fied, either VIB or FIB re- 
cord size is used. 


Record size IRSZER Indicates the action UFAS is 
error to take when conflict occurs 
indication . between the actual record 


size and that specified by 
the user. 


0. 0 Record size conflicts are 
ignored. The smallest record 
size of the actual record 
size and FIB record size is 
used as the correct record 
size. 


1 Execute the error procedures 
specified by the USERER or 
ERRTBL parameters. 


Checkpoint CHKPT Integer<2” -4 Checkpoints are taken every 
time this many records are 
accessed. 


0 No checkpoints are taken 
based on record count. 
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Parameter 


Process 
area 


File status 
code 


User error 
procedure 


File name 


Error table 


Name 


PROAR 


FSCODE 


USERER 


FLNAME 


ERRTBL 


Value Default 


Address, 
character 


Address, 
character 


0,0 
Address 
0 
Address, 
character 
0,0 
Address 


Comments 


Location and starting char- 
acter position of an area 
within the user program to 
which records are moved 

and from which they are 
retrieved with Put and 

Get macros. The size of 

the process area is assumed 
to be equal to the FIB re- 
cord size. 


Location and starting byte 
position of a two-byte ASCII 
file status code field in 
which UFAS stores a unique 
status code whenever an ex- 
ception condition occurs 
(see Section VIII). 


No file status code field. 


Location of user-supplied 
error procedure to which 
UFAS transfers control when- 
ever an error is detected. 


No user error procedure. 


Applies only to Labeled files. 


Location and starting byte 
position of a 1/-byte ASCII 
file name. 


No file name is provided. 


Location of user-supplied 
table of error procedures 
based on processing mode. 


The format of the error 
table is: 


word 0, bits 0-17: address 
of error procedure for 


files in output mode. 


word 1, bits 0-17: address 
of error procedure for 


files in input mode. 


word 2, bits 0-17; address 
of error procedure for 


files in input/output 
mode. 


(bits 18-35 of each word 
are reserved.) 
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Parameter 


File code 


File 
organization 


Access mode 


Percent 
fill 


Name 


FCLST 


ORG 


ACCMOD 


PCTFIL 


Value Default 
0 
Address 
0 
IND 
SEQ SEQ 
RAN 
DYN 
Integer<C1IsZ C1ISZ 
5-6 


Comments 


When an error is detected, 
control is transferred to 
the appropriate error pro- 
cedure only if the user 
error procedure parameter is 
not specified. If neither a 
user error procedure para- 
meter nor an error table 
parameter is specified, UFAS 
aborts when an error is de-~- 
tected. 


.No user error procedures 


based on processing mode. 


If the file resides on more 
than one volume, this para- 
meter defines the Location 
of a list of file codes 
assigned to the second and 
succeeding volumes of the 
file. This parameter applies 
only to mass storage files. 
The format of the file code 
List is: 


word 0, bits 0-35: number of 
file codes in the List, in 


binary. 


words 1-n, bits 0-17: re- 
served. 


bits 18-35: file 
code in ASCII. 


Only one file code is 
assigned to the file. 


Must be supplied. 


Sequential mode (sequential 
only). 

Random mode (random only). 
Dynamic mode (sequential 
and random). 


Number of bytes to be 

used in each control inter- 
val for data, as the file 
is being built. File must 
be opened for output. The 
remainder of the control 
interval is used when the 
file is updated. This para- 
meter decreases’ overflow 
control interval usage as 
the file is updated. 
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Parameter 


Key pointer 


Label 
indicator 


Name 


KEYPTR 


ILABEL 


Value 


Address 


Default 


Comments 


Must be supplied on output. 
Location of a list of key 
descriptions. These descrip-~ 
tions define all keys to 
UFAS as the file is built. 
The List has the following 
format: 


bits 


0 - indicates whether 
duplicate keys are 
allowed for this 
key description; 
if bit O=0, this 
key has no dupli- 
cates; if bit 0=1, 
this key may have 
duplicates. 

1-17 - key offset in re- 
cord (bytes). 
18-35 - key Length (bytes). 


Each key has one entry. The 
List is terminated by a word 
of zeroes. First entry 
represents the prime key (bit 
O must be set off to indicate 
that no duplicate keys are 
allowed). The second entry 
through the nth entry re- 
present n-1 alternate keys. 
Bit O may be set ON to in- 
dicate that an alternate 

may contain duplicate keys 

or set OFF to indicate that 
the alternate contains 

only unique keys. 


No key pointer specified. 


Indicates the presence or 
absence of file Labels. 


File does contain labels. 


File does not contain labels. 
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Parameter Name Value Default Comments 


Inventoried LOVINC 1 to 510 0 Controls the allocation of 


local overflow control intervals 
overflow at load time. 


Ratio of number of data con- 
trol intervals to number of 
overflow control intervals. 
Low values will cause a 
Larger number of control 
intervals to be allocated 
to local overflow. 


The $ DATA .U card can be 

used to override the speci- 

fication of this parameter 

in the FIB. If this parame- 

ter is not specified or zero 
is specified, the total 

space allocated as _ local 

overflow is half the space 

reserved by percent fill 

(see Appendix E). 


Inventoried GOVINC 1 to 510 0 Controls the allocation of 
general overflow control intervals 
overflow at load time. 


Ratio of number of data con- 
trol intervals to number of 
overflow control intervals. 
Low values will cause a lar- 
ger number of control inter- 
vals to be allocated to 
general overflow. 


The $ DATA .U card can be 
used to override the specif- 
ication of this parameter in 
the FIB. If this parameter 
is not specified or zero is 
specified, the default is 
calculated in the same 
manner as for LOVINC. The 
default for LOVINC is always 
calculated before the de- 
fault for this parameter 
(see Appendix €). 


Rule 


The file information block has several assigned fields. If a field is not 
applicable to a particular situation, it is ignored. Fields that are set in a 
conflicting manner cause the open function to return an exception condition code 
to the activity. 
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FUNCTIONAL MACROS 


Although each one of the functional macros available performs a specific 
function and has its own format and set of rules, which are described separately 
in detail, certain conventions and rules are common to all functions. 


The Open and Close macros contain the information that is necessary to open 
or close one or more files with one statement. A common FIB List is built and 
is used by all files to be either opened or closed. The user can either reserve 
space in the program for the FIB List, or can allow the List to be built by the 
macro. 


In order to execute a functional macro, information pertinent to the 
function must be supplied in a variable information block (VIB). The VIB 
address parameter specifies where the variable information is to be located. 
This parameter may be either zero or omitted if no parameters are required. If 
parameters are required, the user supplies values in the macro parameter fields 
to indicate the values to be entered in the VIB for execution of the function. 


Parameters are expressed in pairs containing a keyword and value. Commas 
must be used to separate each parameter name from the parameter value and two 
consecutive pairs of parameters. Parameter names ending in "I" indicate an 
indirect reference to the parameter value. Parameters may be specified in any 
order. If a parameter and its value are omitted, the default value is assumed. 


Normally, registers are saved when UFAS is entered and restored when UFAS 
returns control to the user, except index register 1 which is the transfer 
register. The only exception is when a user error procedure is entered. In 
this instance, the user registers are not restored because UFAS is relinquishing 
control only temporarily to allow the user to process the exception condition. 
When control is returned to UFAS (Cat the completion of the error procedure), the 
saved registers are still valid. 
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Open Macro - DOPEN 


Function 


The Open macro initiates’ the processing of one or more files, verifies 
their existence, and establishes tables for file processing. DOPEN consists of 
the following four functions: 

Ale Single-Open/User-Defined FIB List 

2. Single-Open/Macro-Defined FIB List 

Bi Multiple-Open/User~Defined FIB List 


4. Multiple-Open/Macro-~Defined FIB List 
SINGLE-OPEN/USER-DEFINED FIB LIST 


Format 


DOPEN) FIBLS,address of FIB List 3 ,Cparameter-name-1, 
FIBLSI,address of pointer to FIB List 


parameter-value-1,...,parameter-name~n,parameter-value-n] 
NOTE: FIB fist Base be defined as Block Starting SynbS' (BSS) 3. 
The parameters and respective defaults for this function are as follows: 
Parameter Name Value Default Comments 
FIB address Required 


Location of FIB for file 
to be opened. 


FIBA Address Location of FIB. 
FIBAI Address Location of poi.ter to FIB. 
Routine Required 
package Location of a UFAS symbol 
SYMREF reference (SYMREF) that 
name corresponds to a set of 
routines used to process 
the file. 
SYM Routine Package of routines needed 
package to process the file. 
SYMREF 
name 
SYMI Address Location of pointer to the 


routine package. 
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Parameter Name Value Default Comments 


Processing Optional 
mode 
indicator 


MODE OT OT Output 
IN Input 
10 Input/Output 
MODEL Address | Location of processing mode 


indicator (2 ASCII uppercase 
characters in bits 0-17) 


Routine Package SYMREF Name 


The Unified File Access System enables the user to utilize the system in 
its entirety or just portions of the system as required. Selection of the UFAS 
routines to be Linked at load time is effected by the user with a SYMREF 
(directory) name that designates the specific set of routines desired. Table 
5-2 lists indexed file format characteristics and the corresponding directory 
names. 


Table 5-2. UFF Indexed File Format Directories 


Access Processing Directory Name 
-DIBLA 
.p1saaP 
~o1pya? 
~DIRVADS 


awith prime keys only 


bwith prime and alternate keys 


Cc ; ; . F 
When an indexed file is accessed for retrieval only, the use of these 
packages result in a reduction in the amount of memory used. 
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11 DC89-03A 


Rules 


7780 


The Open macro must be successfully completed before the execution of 
any input/output statements for a file. 


After the initial execution of an Open macro for ae file, each 
subsequent DOPEN for this file must be preceded by the execution of a 
Close macro without the lock or unit parameters. 


Open output is used to create an indexed file and build the indexed 
structure. Open input allows the indexed file to be read and open 
input/output allows the file to be updated. 

The Open macro does not obtain or release the first data record. 

For files. being ovnened_ for input or input/output, the DOPEN 


establishes the current record pointer so that the first data record 
in the file can be accessed. 
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Data reco 
first data 
overflow a 


Example 


Open 


LISTA 
FIBAD 


ADSYM 
LIST 

RECOR 
PRIME 


This 
in the use 
allocated 


Format 


DOPEN 


ETC 


The f 


For files opened for output, the current record pointer is 


initialized 


to point to the beginning of the user's data area in the logical data 


space. 

The Open macro establishes the prime key as the key of 
If the file is empty (no data written when the file 
attempts to retrieve records before the addition of 


will result in the following: 


a. Attempts to retrieve records sequentially will 
end-of-file condition. 


reference. 


was 


created), 


any new records 


result in an 


b. Attempts to retrive records randomly (via prime or alternate key) 


will result in an invalid-key condition. 


rds can be added in the prime key sequence and will be placed in the 


control interval until full. Subsequent records will 
ccording to prime key sequence. 


the indexed file specified in FIBAD2 for sequential output. 


8 16 

LODM -DMAC 

SYMREF -DIBLD 

DOPEN FIBLSI,LISTAD,CFIBA,FIBAD2,SYMI,ADSYM] 
D ARG LIST 


be 


placed in 


2  FIBMAC  .D,UFF,CPROAR,RECORD,O,ORG,IND,KEYPTR,PRIMEJ,.1 


ARG .DIBLD 
BSS 3 
D BSS 20 
VED 1/0,17/0,18/4 
ZERO 


SINGLE~OPEN/MACRO-DEFINED FIB LIST 


function initiates processing of only one file. It builds a FIB List 


r program immediately following the DOPEN command, 
automatically. 


and 


storage is 


-, Cparameter-name-1l,parameter-value-1,...parameter-name-n, 


parameter-value-nJ 


ollowing parameters and respective defaults apply. 
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Parameter Name Value Default Comments 


Same as 


Rules 


Single-Open/User-Defined Function. 


Do not supply FIB List address. 
Left bracket must be preceded by two commas. 


ALL other rules that apply to the Single-Open/User-Defined 
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Function. 


DC89-03 


This 
one FIB Li 


Format 


DOPEN 


ETC 


ETC 


The f 


Parameter 


FIB Addres 


PROCESSING 
MODE 


REWIND 
Indicator 


Routine 
Package 


Rules 


MULTIPLE-~OPEN/USER~SUPPLIED FIB LIST 


function initiates the processing of from one to n files. It builds 
st, which is used by all files. 


FIBLS, FIB List address, [*, FIB address, mode, 
rewind indicator, symref name, *, FIB address 2, 


mode 2, rewind indicator 2, symref 2,....] 


ollowing parameters and respective defaults apply: 
Value Default Comments 
s Address Required; location of FIB for files 


to be opened 


OT OT Output 

IN Input 

10 Input/Output CApplies to mass stor- 
age) 

EX EXTEND (does not apply to GFRC on 
mass storage) 

Y Y Rewind Option 

N DO NOT REWIND ON OPEN 

Symref name Required; package of routines need- 


ed to process the files 


Space for the FIB List must be defined as 1+2n words where n is the 
number of files to be opened. 


Each List of parameters for every file must be preceded by an *. 
Key words must not appear within the brackets. 


Parameters must be Listed in predefined order. Defaults may be taken; 
however, if they are, the subsequent comma must be used. 


ALL other rules that apply to the Single-Open/User-Defined Function. 
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This 
FIB List w 
List is us 


Format 


DOPEN 


ETC 


The f 


Parameter 


FIB Addres 


PROCESSING 
MODE 


REWIND 
Indicator 


Routine 
Package 


Rules 


MULTIPLE-OPEN/MACRO-DEFINED FIB LIST 


function initiates processing of from one to n files. It builds one 
ithin the user program immediately following the DOPEN command. This 
ed by all files. Storage for the FIB list is automatically allocated. 


-- Ux, FIB address, mode, rewind indicator 


symref name,*,ceceseed 


ollowing parameters and respective defaults apply: 


Value Default Comments 
s Address Required; location of FIB for files 
to be opened 

OT oT Output 

IN Input 

10 Input/Output (Applies to mass stor- 
age) 

EX EXTEND (does not apply to GFRC on 
mass storage) 

Y Y Rewind Option 

N DO NOT REWIND ON OPEN 

Symref name Required; package of routines need- 


ed to process the files 


Two commas must precede the left bracket. 
Each List of parameters for every file must be preceded by an *. 
Key words must not appear within the brackets. 


Parameters must he Listed in predefined order. Defaults may be taken; 
however, if they are, the subsequent comma must be used. 


FIB List address should not be supplied. 


ALL other rules that apply to the Single-Open/User-Defined Function. 
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Put Macro > DLPUT 


Function 


The Put macro places a logical record in the file. 


Format 


DLPUT FIB address,VIB address,alternate return address, 
CVIB-parameter-name-1,VIB-parameter-value-1,..+, 


VIB-parameter-name-n,VIB-parameter-value-nl 
NOTE: VIB must be defined as BSS 2. 


The Put macro has the following parameters and respective defaults: 


Parameter Name Value Default Comments 
Record size Optional 
RSZ Integer Must be Less than or equal 
to RSZ in FIB. 
RSZI Address Location of field containing 
record size in bits 0-17. 
Indirect FIB FIBI None Optional | 
addressing If this keyword is speci-~ 


fied, it implies that argu- 
ment 1 is not the actual FIB 
address, but is a pointer to 
a Location that contains the 
FIB address. 


Rules 
t. The designated file must be open for output or I/0 at the time of the 
execution of this statement. 


2. The current record pointer is unaffected by the execution of a DLPUT. 


a The maximum record size for a file is established at the time the file 
is created and cannot subsequently be changed. 


4. To create a file, the file must be opened for output in the sequential 
or dynamic access’ mode. The records must be released in ascending 
order of prime key, or an invalid key condition is returned. 


Dis The value of the prime key must be unique and set by the program to 
the desired value prior to execution of the DLPUT function. An 
invalid key condition results from duplicate prime keys or from 
alternate keys for which duplicate keys are not allowed. 


6. Records can be written to an existing indexed file in any order if 
opened in the random or dynamic access mode. 
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Example 


Put a 


FIB1 


VIB1 
ALT1 


RECOR 
PRIME 


Rewrite Ma 


Function 


The R 


Format 


DLRWR FIB 


CV 


NOTE: VIB 


When the invalid key condition is recognized, the execution of the 
write function is unsuccessful and the contents of the record area are 
unaffected. Control is returned to the alternate return address. 

The record is moved from the process area to the buffer. If the 
record size is not specified, the record size in the FIB record size 


word parameter is used. If no parameter is specified, the FIB maximum 
record size is used. 


27-byte record in the file specified by FIB1. 
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DLPUT FIB1,VIB1,ALT1,CRSZ,27] 


FIBMAC .D,UFF,CPROAR,RECORD,O,ORG,IND,KEYPTR,PRIMEJ,.1 


BSS 2 
NULL 
D soa 20 
VED 1/0,17/0,18/4 
ZERO 


cro = DLRWR 


ewrite macro causes the specified record to be rewritten to the file. 


address,VIB address,alternate return address, 


IB-parameter-name-1,VIB-parameter-value-1] 


must be defined as BSS 1. 
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The 


follows: 


parameters and resvective defaults for the Rewrite macro are 


Parameter Name Value Default Comments 
Record size Optional 


Specifies the number of 
characters of the record 
to be rewritten. 


RSZ Integer Value must be equal to 
the size of the record 
being replaced. 


RSZI Address Location of record size 
field in bits Q-17. 


Indirect FIB FIBI None Optional 


addressing 


Rules 


7/80 


If this keyword is 
specified, it implies that 
argument 1 is not the 
actual FIB address, but is 
pointer to a location that 
contains the FIB address. 


The designated file must be open for I/0 at the time of execution of 
this statement. 


For files opened for sequential access, the Last input/output function 
executed for the associated file, prior to the execution of the DLRWR 
function, must have been a successfully executed DLGXT. The key of 
reference within the data record must not be modified until the 
execution of DLRWR. 


The size of the record name must be equat to the size of the record 
being replaced. 


The current record pointer is not affected by the execution of a DLRWR 
function. 


For an indexed file opened for random or dynamic access, UFAS 
Logically replaces the record specified by the contents of the prime 
key (KEYPTR). If the file does not contain the record, an error 
condition is returned. 


When the rewrite is unsuccessful, the file is unaffected. 


When an invalid key condition is detected, control is returned to the 
alternate return address. 


The content of alternate key data items of the record being rewritten 
may differ from that of the record being replaced. UFAS utilizes the 
content of the alternate key data items during the execution of the 
DLRWR macro to update the associated index file so that subsequent 
access of the data items may be effected by the specified keys of 
reference. If duplicate keys are not allowed for this alternate key 
and a duplicate key results from the attempted rewrite, an invalid key 
condition exists and the function is unsuccessful. 


If the record size is not specified, the record size in the FIB record 


size word parameter is used. If no parameter is specified, the FIB 
maximum record size is used. 
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Example 


Rewrite a 20-byte record in the file specified in the FIB. On a logical 
error, return to ALT. 


1 8 16 
DLRWR FIB,VIB,ALT, RSZI,ADRSZ 
ADRSZ ZERO 20 
FIB FIBMAC .D,UFF,CPROAR,RECORD,O,ORG,IND,KEYPTR,PRIME]J,.1 
VIB BSS 1 
ALT NULL 
RECORD BSS 20 
PRIME VFD 1/0,17/0,18/4 
ZERO 


Delete Macro - DLDEL 


Function 


The Delete macro physically deletes a record from a file. 


Format 


DLDEL FIB address,,alternate return address, parameter-name-1 


The parameters and respective defaults for the Delete macro are as: follows: 


Parameter Name Value Default Comments 
Indirect FIB FIBI None Optional 
addressing If this word is speci- 


fied, it implies that 
argument 1 is not the 
actual FIB address, but 
is a pointer to a loca- 
tion that contains the 
FIB address. 


wn 
1. 

ae 

so 
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Rules 


Example 


Delet 
procedure 


FIB2 
ALT2 


RECOR 
PRIME 


Position M 


The designated file must be open in the 1/0 mode at the time of the 
execution of this statement. 


For a file opened in the sequential access mode, the statement 
executed for this file prior to the execution of the DLDEL function 
must have been a successful DLGXT. 

For an indexed file opened for random or dynamic access, the record 
identified by the prime key is physically deleted from the file. If 
the record does not exist, an invalid key condition is returned and 
the alternate return is taken. 


The current record pointer is not affected by the execution of the 
DLDEL function. 


The key to be used for comparison must be in its appropriate position 
in the process area. 


e the record specified in FIB2 and on a logical error execute the 
at ALT2. 
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DLDEL FIB2,,ALT2 


FIBMAC .D,UFF,CPROAR,RECORD,O,ORG,IND,KEYPTR,PRIMEJ,.1 


NULL 

D BSS 20 
VFD 1/0,17/0,18/4 
ZERO 


acro - DLPOS 


Function 
The Position macro provides for logically positioning the file for 
subsequent access. 
Format 
DLPOS FIB address,VIB address,alternate return address, 
VIB-parameter-name-1,VIB-parameter~-value-1, 
VIB-parameter-name-2,VIB-~parameter~value-2 


NOTE: VIB must be defined as BSS 3. 
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The Position macro has the following parameters and respective defaults: 


Parameter 


File 
beginning 


Forward 
positioning 


Random 
positioning 


Number of 
Logical 
records 
skipped over 


Name 


BEGIN 


FORW 


FORWI 


FCT 


FCTI 


OUTNBI 


Value Default 


FILE 


Integer 


Address 


EQ EQ 


GT 


GE 


Address 


Address 
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Comments 


Optional 
Device is position 
beginning of file. 


Optional 


ed at 


Specifies the number of 


Logical records to 
skipped over in th 
forward direction. 


Number of logical 
to be skipped over 
forward direction. 


Location containin 


be 
e 


records 
in the 


ga 


36-bit binary value 


representing the n 
of logical records 
be skipped over in 
forward direction. 


Optional 
Positions the file 
prime key. 


Means equal to the 
fied key. The key 
question is descri 
key pointer parame 


umber 
to 
the 


to a 


speci- 

in 
bed by the 
ter in the 


file information block. 


Means greater than 
specified key. 


the 


Means greater than or 


equal to the speci 
key. 


Location of a word 
FCT value in bits 
uppercase ASCII ch 


Optional 

Location in which 

binary value repre 
the number of Logi 
records actually s 
over is returned. 

only when forward 

ing is used. 


fied 


having 
0-17 in 
aracters. 


a 36-bit 
senting 
cal 

kipped 
Applicable 
position- 
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Parameter Name 
Key offset keyo! 
1 
KEYOI 
Key size KEYS 
KEYSI 
Key descrip- KEYI 
tion 


Coffset/length) 


Indirect FIB FIBI 
addressing 


Vatue 


Integer 


Address 


Integer 


Address 


Address 


None 


Default 


Comments 


Byte offset from beginning 

of record of key to be used 
in comparison. Identifies 

key of reference and must 

match an offset given for a 
key that was described ori- 
gGinally in KEYPTR parameter 
of FIB macro. If not speci~- 
fied, the key of reference 

is the prime key. 


Location of word containing 
the byte offset of key with- 
in the record in bits O-17. 


Size in bytes of leftmost 
portion of key to be used 
in search. 


Must be less than or equal 
to size described for the 
appropriate key in KEYPTR 
parameter of FIB macro. 
Must be supplied if KEYO is 
used. 


Location of word containing 
size of key to be used in 
search (bits 0-17). 


Location of a word contain-~ 
ing the byte offset (bits 
0-17), from the beginning of 
the record of the key to be 
used, and its size (bits 
18-35). 


This parameter is a combi- 


nation of the key offset 
(KEYOI) and key size (KEYSI) 
parameters. It allows both 
parameters to be specified 
in a single word. 


Optional 

If this keyword is speci- 
fied, it implies that argu- 
ment 1 is not the actual FIB 
address, but is a pointer to 
a location that contains the 
FIB address. 


‘h¢ either KEYO or KEYOI is used, then KEYS or KEYSI must be supplied. 
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Rules 


Examples 


Rewin 


VIB 
FIB1 


ALT1 


RECOR 
PRIME 


The designated file must be open in the input or input/output 
processing mode. 


If an end-of-file is encountered before n logical records’ are 
bypassed, the number of logical records actually skipped over is 
returned to the user through the OUTNBI parameter; if the contents of 
the OUTNBI parameter do not equal the original input parameter, the 
value of the status field must be checked to determine if an 
end-of-file condition occurred. 


The type of comparison specified (equal to, greater than, or equal to 
or greater than) occurs between the key associated with a record in 
the file and a data item defined by the prime key field (KEYPTR in 
FIB). 


If no VIB parameter is specified, the relational operator EQ (equal 
to) is implied by default. 


A successful execution of the DLPOS macro causes the key of reference 
to be established. If an alternate key is used for the comparison, 
the current record pointer is positioned to the first logical record 
currently existing in the file whose key satisfies the comparison. 


If the comparison is not satisfied, execution is unsuccessful, the 
position of the current record pointer and the key of reference are 
undefined. An invalid key condition is returned. The alternate 
return is taken. 


The key to be used for comparison must be in the appropriate position 
in the process area and is described in word 6 of the file information 
block. 


The capability of skipping over n Logical records in the backward 
direction is not provided. 


d file. 
8 16 
DLPOS FIB1,V1B81,ALT1,CBEGIN,FILE]J 
BSS 3 


FIBMAC -D,UFF,CPROAR,RECORD,0,0RG,IND,KEYPTR,PRIMEJ,.1 


NULL 
D BSS 20 
VED 1/0,17/0,18/4,36/0 
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Skip over four Logical records in the forward direction. 


1 8 16 
DLPOS FIB3,VIB3,ALT3,CFORWI,RECNS,OUTNBI, TRUENBI 
VIB3 BSS 3 
RECNB DEC 4 
TRUENB DEC 0 
FIB3 FIBMAC .D,UFF,CPROAR,RECORD,O,ORG,IND,KEYPTR,PRIMEJ,.1 
ALT3 NULL 
RECORD BSS 20 
PRIME VFD 1/0,17/0,18/4,36/0 


Position a file to a specified alternate key whose Length is 20 bytes and 
offset within the record is 10 bytes. 


1 8 16 
DLPOS FIB4,VIB4,ALT4, CKEY0,10,KEYS,20] 
VIB4 BSS 3 
FIB4 FIBMAC .D,UFF,CPROAR,RECORD,0,0RG,IND,ACCMOD,DYN,KEYPTR,PRIME],.1 
ALT4 NULL 
RECORD BSS 20 
PRIME VFD 1/0,17/0,18/4 
VFD 1/1,17/10,18/20 
ZERO 


Set the current record pointer to the record with indexed key value greater 
than or equal to the indexed key value specified in the FIB. If.such a_- record 
does not exist, execute the code at ALT. . 
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1 8 16 


DLPOS FIB,VIB,ALT, CFCT,GEJ 
VIB BSS 3 
FIB FIBMAC .D,UFF,CPROAR,RECORD,O,ORG,IND,ACCMOD,DYN,KEYPTR,PRIME],.1 
ALT NULL 
RECORD BSS 20 
PRIME VFD 1/0,17/0,18/4 
ZERO 


Get Next Macro ~- DLGXT 


Function 


The Get Next macro makes the next logical record available in ascending key 
order. 


Format 
DLGXT FIB address,,end-of-file address, parameter-name-1 


The parameters and respective defaults for the Get Next macro are as 
follows: 


Parameter Name Value Default Comments 
Indirect FIB FIBI None Optional 
addressing If this keyword is specifi-~ 


fied, it implies that argu- 
ment 1 is not the actual FIB 
address, but is a pointer to 
a location that contains the 
FIB address. 


Rules 
Ts The designated file must be open for input or I/O0 at the time this 
function is executed. 
2. - An end-of-file condition is returned when no next logical record 


exists in the file. This condition is considered an unsuccessful read 
request. Control is returned to the end-of-file address. 
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Example 


Get t 


FIB 


ALT 


RECOR 
PRIME 


Get Macro 


Function 


The G 
alternate 


If the position of the current record pointer is undefined, an error 
condition results. The current record pointer is not defined 
following an unsuccessful read request. 


The order of retrieval is the ascending order of the key of reference 
(prime key or an alternate key if one is present). If the key of 
reference is an alternate key and duplicate keys are present, the 
records are retrieved in the. same order as they were written in the 
file (first in, first out). ' 


Records with the same duplicate key values of an alternate key, that 
is the key of reference, are accessed in the same order that they were 
released by execution of a ODLPUT or DLRWR macro that created the 
duplicate keys. 


If no DLPOS or DLGET macro was executed, then the key of reference is 
the prime key. Once the key of reference is established, it remains 
in effect for subsequent executions of the DLGXT macro until another 
key of reference is established for this file. 


The record is moved from the buffer to the process area. The size of 
the record is returned to the user in the FIB record size word 
parameter. 


The key of reference can be pre~established via execution of a DLGET 
or a DLPOS macro. If neither macro has been executed, the prime key 
is used. 


he next record. If end of file, go to ALT. 
_8 16 
DLGXT FIB,,ALT 


FIBMAC .D,UFF,CPROAR,RECORD,O,ORG,IND,KEYPTR,PRIMEJ,.1 


NULL 

D ~=—s-BSS 20 
VFD 1/0,17/0,18/4 
ZERO 

- DLGET 


et macro makes available a specified record based on a prime key or 
key. 
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Format 


DLGET 


FIB address,VIB address,alternate return address, 


CVIB-parameter-name-1,VIB-parameter~-value-1, 
VIB-parameter-name-2,VIB-parameter-value-2] 


NOTE: 


VIB must be defined as BSS 3. 


The Get macro has the following parameters and respective defaults: 


Parameter Name 
ae | 
Key offset KEYO 
1 
KEYOI 
Key size 
KEYS 
KEYSTI 
Key descri- KEYI 
ption 


Coffset/length) 


Value 


Integer 


Address 


Integer 


Address 


Address 


Default 


Comments 


Key offset and key size are used 
to identify the alternate key 
that is to be used to retrieve 
the record. If not specified, 
the prime key is used. The key 
size parameter may be used for 
partial key searching. 


Byte offset from beginning of 
record of key to be used _ in 
comparison. Identifies key of 
reference and must match = an 
offset given for a key that was 
described originally in KEYPTR 
parameter of FIB macro. 


Location of word containing byte 
offset of key in record (bits 
0-17). 


Must be less than or 
size described for appropriate 
kev in KEYPTR parameter of FIB 
macro. Must be supplied if KEYO 
or KEYOI is used. 


equal to 


Size in bytes of Leftmost portion 
of key to be used in search. 


Location of word containing size 
of key to be used in search (bits 
0-17). 


Location of a word containing the 
byte offset (bits 0-17), from the 
beginning of the record of the 
key to be used, and its size 
(bits 18-35). 


This parameter is a combination 
of the key offset (KEY0O1) and key 
size (KEYSI) parameters. It 
allows both parameters to be 
specified in a single word. 


‘i either KEYO or KEYOI is used, then KEYS or KEYSI must be supplied. 
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Parameter Name Value Default Comments 
Indirect FIB FIBI None Optional 
addressing If this keyword is specified, it 


implies that argument 1 is not 
the actual FIB address, but is a 
pointer to a Location that 
contains the FIB address. 


puree 


: es The designated file must be open for input or 1/0 at the time this 
function is executed. 


2. Following the unsuccessful execution of any ODLGET function, the 
position of the current record pointer is undefined. The contents of 
the associated record area remain undisturbed, and the prime key and 
key of reference are undefined. 


io The execution of a DLGET causes the value of the key of reference to 
be compared with the value contained in the corresponding data item of 
the stored records in the file, until the first record having an equal 
value is found. The current record pointer is positioned to this 
record, which is then made available. If no record exists, execution 
of the function is unsuccessful. The alternate return is taken. 


4. The key to be used for comparison must be in its appropriate position 
in the process area. 


5. The record is moved from the buffer to the process area. The size of 


the record is returned to the user in the FIB record size word 
parameter. 


Example 


Get the record with indexed key value equal to that specified in the FIB. 
If it is not an active record return to ALT. 
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DLGET AA,VIB,ALT,CKEY0,30,KEYS,10,FIBI J 


FIB FIBMAC .D,UFF, CPROAR,RECORD,O,ORG,IND,ACCMOD,RAN,KEYPTR, PRIME], 
ETC ee | 
ALT NULL 
AA ARG FIB 
VIB BSS 3 
RECORD BSS 20 
PRIME VFD 1/0,17/0,18/4 
VFD 1/1,17/10,18/20 
VED 1/0,17/30,18/10 
ZERO 
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Return Macro ~- UFSRET 


Function 


The Return macro provides a means of returning control to UFAS after a user 
error processing procedure is completed. 


Format 
UFSRET ERROR 


NOTE: User error procedures are specified in the FIB macro via the user error 
procedure and error table parameters. 


Rule 


When a user error procedure contains a UFAS macro, which can result also in 
a user error procedure for another file being entered by UFAS, the second 
procedure must conclude also with a UFSRET return for that particular function. 


Example 


Return to UFAS after a user error exit. 
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UFSRET ERROR 
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information Macro DINFO 


Function 


The DINFO macro either stores File Access Control Table CFACT) information 
or the size of each section of the FACT table into a user specified table area. 


Format 


DINFO FIB address, VIB address, alternate return address, 


Coarameter~name-1, parameter-value-1...., 


parameter-name-n, parameter-value-nJ 


NOTE: VIB must be defined as BSS 1 


The parameters and respective defaults for the Information Macro are as 


follows: 
Parameter Name Value Default 
Function FCT 1 


Comments. 


Store FACT section 1 into user 
table area. Includes words 
FACT~8 through FACT +98 for all 
file types. 


Store FACT section 2 into user 
table area. Includes words 0 
through +59 for UFF Indexed files 
with no alternate keys: O through 
+81 for LFF Indexed with 
alternate keys; O through +17 for 
ANSI/IBM/GFRC and UFF_ tape; 0 
through +41 for ISP; and 0 
through +9 for H2000. 


Store FACT section 3 into user 
table area. Include words QO 
through 26 (dec). 


Store the entire FACT into the 
user table area. 


Store FACT-8& through FACT +5. of 
section 1 into user table area. 


This option provides FACT 
information that is equivalent to 
the GFRC FILCB. 


Store the size (Cin binary) of 
FACT sections 1, 2, and 3 into a 
3-word user defined table area. 
Zero will be given as the size of 
section 3 if it is non-existent. 
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Parameter 


Table 
Pointer 


Name Value Default Comments 


TBL Address Required. 
If this keyword is specified, it 
implies that argument 1 is not 
the actual FIB address, but is a 


pointer to a Location that 
contains the FIB address in bits 
0-17. 


The designated file must be opened in either the input, I/0 or output. 


The TBL parameter is required and must point to an area large enough 
to contain the requested information. 


The user must provide an alternate return address. 


If an error is detected during execution of the DINFO macro, UFAS will 
return control to the user via the alternate return except when 
executing the DINFO macro on any unopened file in which case UFAS will 
branch to a users error procedure if it is present or abort. 


A function code of 6 requires a table size of 3 words. After a 


successful execution of a DINFO macro the table will contain the 
following values: 


Word Contents 


1 Size of FACT section 1, right- 
justified. (In Binary) 


2 Size of FACT section 2, right- 
justified. (In Binary) 


3 Size of FACT section 3, right- 
justified. (In Binary) A size of 


zero will be given if section 3 
is non-existent. 


If no function code (FCT) parameter is specified the entire FACT will 
be given to the user. 
The FACT sizes given in this specification are applicable to SR ADF2. 


This macro may not be executed for files processed under TP or 
I-Dd-S/II. 


The following error conditions will be identified: 


a. 8-01 File not opened. (ALT return not taken) 

b. FO A potential FO memory fault during DINFO execution may 
take place because of insufficient table area size. 

ce. Fi Invalid function code 

d. Fe The user asked for FACT section 3 and it does. not 
exist. 
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10. Listed below in decimal are the sizes of the entire FACT. for the 
various file formats, 


UFF SEQUENTIAL Tape and Macro Store ....e2- 192 
WER RELATIVE outs decd ose eee eeie we else Wawa wteeee” E22 
URE INDEXED snes sec eee San eset edaaecaneueae 192 
EGE ceseceek een Ge beth cee aNe Dee abw ae eae aewee TOS 
ANS! owes antes weenie Gs BOS @ see eS ee wee ease eee. Loe 
H2000. 6 6\scc Oba sie buiee ne eekee CARRS eee eae 16 
UNL @ésee-eG 246 56 CAN CUES SMS Hee ewes ae Sate. Loe 
GFRC Tape and Macro Store seancnaccceacceee 192 


DS Poe ade ee wie Sele we lola: wow eo ere) 6, ecalele eee e:6. 6 66 66 e 6626 149 


Example 


Store the entire FACT contents of the file specified by FIBI into a table 
specified by TABLE. 
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DINFO FIB1,VIBI,ALTRET,CFCT,4,T1BL, TABLE] 
FIB1 FIBMAC DA,UFF,CPROAR,RECORD,O, ORG, IND, KEYPTR,PRIMEI,KY 
RECORD BSS 24 
PRIME VED 1/0,17/0,18/4 
ZERO 
VIBI BSS 1 
TABLE NULL 
® 


ALTRET NULL 
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Checkpoint Files Macro - DCKPF 


Function 


The Checkpoint Files macro establishes a checkpoint for all open files. 


Format 


DCKPF 


Rules 

a All randomly allocated files written by the program must have FMS 
ABORT/ROLLBACK/ protection. 

ox ALL opened files are included in the checkpoint. 

.- The macro must be executed at a point from which processing of the 
files can be resumed if a rollback does occur, since the program is 
not checkpointed. 

4. The macro performs a buffer flush before establishing the checkpoint. 

oe For any files being processed with ACCESS/MONITOR/ (see File 
Management Supervisor manual), buffers are set empty and the record 


pointer is set to undefined. 


6. Checkpoint is taken only if protected files are present and have’ been 
opened. 


5 
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Checkpoint Files and Program Macro — DGKPT 


Function 


The 


Checkpoint Files and Program macro establishes a checkpoint for all 


open files and for the program. 


Forma 


DCKPT 


t 


Rules 


ALL randomly allocated files written by the program must have FMS 
ABORT/ROLLBACK/ protection. 


ALL open files are included in the checkpoint. 


The macro must be executed at a point from which processing of the 
files can be resumed if a rollback does occur. 


The macro performs a buffer flush before establishing the checkpoint. 


For any files being processed with ACCESS/MONITOR/ (see File 


Management Supervisor manual), buffers are set empty and the record 
pointer is set to undefined. 


A QX file large enough to accommodate the program must be allocated, 


but not declared in the user program (see Program Recovery/Restart 
manual). 


Checkpoint is taken only if protected files are present and have been 
opened. 


The Q@ register Clower 18 bits) contains the status code returned by 


MME GECHEK as described in the General Comprehensive Operating 
Supervisor manual. Zero status indicates a successful checkpoint. 
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Rollback Files Macro - DROLF 


Function 


The Rollback Files macro restores the files open at the time of the 
previous checkpoint to their state at that time. The effect is to cancel all 
changes to the files since the previous checkpoint. 


Format 


DROLF 


Rules 


1s A DCKPF or DCKPT macro must be executed before performing the 
rollback. 


Cae After a rollback, the current record pointer is undefined. 


Rollback Files and Program Macro ~ DROLP 


Function 


The Rollback Files and Program macro restores the program and all files 
that are open at the time of the previous checkpoint to their state at that 
time. The effect is to cancel all changes to the files since the checkpoint and 
to restart the program from that point. 


Format 

DROLP 

Rules 
Te A DCKPT macro must be executed before a rollback is executed. 
am After a rollback, the current record pointer is undefined. 
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Wrap-up Macro ~ DWRAP 


Function 


The Wrap-up macro closes files currently open. 


Format 


DWRAP 


ALL opened files are closed. Device disposition codes are not honored. 
Close Macro - DCLOS 


Function 
The Close macro terminates the processing of one or more files. 
DCLOS consists of the following four functions: 


Ts Single-Close/User-Defined FIB List 
2. Single-Close/Macro-Defined FIB List 
i Multiple-Close/User-Defined FIB List 


4. Multiple-Close/Macro-Defined FIB List 


SINGLE~CLOSE/USER-DEFINED FI8 LIST 


Format 


DCLOS } FIBLS,address of FIB List } Cparameter-name-1, 
FIBLSI,address of pointer to FIB List 


parameter-value-1,...,parameter-name-n,parameter-value-nJ 


NOTE: FIB List must be defined as BSS 2. 
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Rules: 


The following parameters and respective defaults apply: 
Parameter Name Value Default Comments 
FIB address Required 
Location of FIB for file 
to be closed. 
FIBA Address Location of FIB. 
FIBAI Address Location of pointer to FIB 
Rewind Optional 
indicator 
REW RWFL RWFL Rewind file on close. 
LKFL Lock file (see note). 
REWI Address Location of rewind indicator 
(4 ASCII uppercase 
characters). 
REWV Rewind value. 
0 0 Rewind file. 
3 Lock file (see note). 
REWVI Address Location of rewind binary 
representation value in 
bits 18-35. 
NOTE: Whenever the Lock parameter is used, the file is disposed of as indicated 


by the disposition code specified on the device control card (see Control 
Cards Reference Manual). The lock parameter and a save or continue 
disposition code are mutually exclusive. If a file that has an S or C 
disposition code is closed with lock, the lock request is ignored, the 
file is not rewound or released, and no indication is given to the user 
that the lock request was ignored. 


The Close macro can only be executed for a file that was opened with 
DOPEN. 


If the file was opened for sequential access in the output mode and no 
data exists in the file, UFAS produces a dummy record of all high 
values. Although the record does not occupy space on the data _ file, 
it ensures that the appropriate index entries (prime and alternate 
keys) are written to the index file. When opened = subsequently, 
records can be added to the data file. 
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Example 


Close and Lock the file specified in the FIB at ADF. 


1 8 16 
DCLOS FIBLS,LIST3,CFIBA,ADF,REWV,3] 
LIST3. BSS 2 
ADF FIBMAC .D,UFFCPROAR,RECORD,O,ORG,IND,KEYPTR,PRIME],.1 
RECORD BSS 20 
PRIME VED 1/0,17/0,18/4 
ZERO 


SINGLE-~CLOSE/MACRO-DEFINED FIB LIST 


Format 


DCLOS ,,  UCparameter-name-1,parameter-value-1,...parameter-name-n, 


parameter-value-nJ 
The following parameters and respective defaults apply: 
Parameters Name Value Default Comments 


Same as Single-Close/User-Defined Function 


Rules 


die FIB List address is not to be supplied. 
2. Left bracket must be preceded by two commas. 


3. ALL Single-Close/User-Defined Function Rules apply. 
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List 


Forma 


This 


function 


is built, which 


t 


DCLOS 
ETC 


FIBLS, 
RewV, * 


F 


o 


MULTIPLE-CLOSE/USER-SUPPLIED FIB LIST 


terminates the processing of one ton files. 
is utilized by all files to be closed. 


IB List address ,C*, FIB address, 
FIB address, RewV,*,..eeeJ 


The following parameters and respective defaults apply: 


eter 


Param 


FIB address 


Rewin 
Indic 


d 
ators 


Rules 


Value Default Comments 
address Required; location of FI8, 


ad and 


Space for 
number of 


Each List 


Key words 


NOOMARDFWN OO 


file to be closed 


0 Rewind file 
Do not rewind file 
Rewind and lock file 
Lock file without rewind 
Rewind and unload file 


Only one FIB 


for 


Lock file with rewind and unload 


Rewind unit 

Do not rewind unit 
Rewind and Lock unit 
Rewind and unload unit 


the FIB List must be defined as 1+n words, where 
files to be closed. 


n 


is the 


of parameters for every file must be preceded by an *. 


must not appear within the brackets. 


Parameters must be Listed in predefined order. Defaults may be taken; 


however, 


i 


f they are, the subsequent comma must be used. 


ALL Single-Close/User-Defined Function Rules apply. 
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MULTIPLE-CLOSE/MACRO-DEFINED FIB LIST 


This function terminates the processing of from one to n files. It builds 
one FIB List in the user program, immediately following the DCLOS command. 
Storage ts automatically allocated, and the List is used by all files that are 
closed via this function. 


Format 
DCLSO ,, C*, FIB Address, REW-V,*,FIB Address2,REW-V,...1] 


The following parameters and respective defaults apply: 


Parameters Value Default Comments 
FIB address address Required; location of FIB for 


file to be closed 


REWIND Rewind value 
INDICATOR 


0 Rewind file 
Do not rewind file 
Rewind and unload file 
Lock file without rewind 
Rewind and unload file 
Lock file with rewind and unload 
Rewind unit 
Do not rewind unit 
Rewind and lock unit 
Rewind and unload unit 


NOODOAOAALWN =O 


> = 


Rules 


os Two commas must precede the left bracket. 
2. Each List of parameters for every file must be preceded by an *, 
3% Key words must not appear within the brackets. 


4. Parameters must be Listed in predefined order. Defaults may be taken; 
however, if they are, the subsequent comma must be used. 


Pe The FIB List address should not be supplied. 


6. ALL Single-Close/User-Defined Function Rules apply. 
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SECTION VI 


INDEXED SEQUENTIAL PROCESSOR FILE ORGANIZATION 


An Indexed Sequential Processor (ISP) file can contain both variable-length 
and fixed-length records. Each record is identified by a unique key that was 
entered in the prime key field when the record was created. The data file must 
reside on random mass storage and can be accessed sequentially, randomly, and 
dynamically. Files are opened, processed, and closed by UFAS in response to a 
FIB macro and specific functional macro requests. UFAS provides ISP file 
management, but does not provide the means to create ISP files. 


Positioning can be effected in the sequential and dynamic access modes if 
the file is opened for input or input/output. When the Put macro is used to add 
records to a file the records are linked in the logical sequential order. 


Table 6-1 Lists the ISP file functions, the functional macros, the 


processing modes, and the access modes with applicable parameters for mass 
storage files. 
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Table 6-1. ISP File Functions and Processing Modes 


ISP Files 


Access Mode Parameters 
Functional | Processing | Sequential Random Dynamic 

Function Macro Mode 

DLPUT (invalid) 
Current . 
Rewrite DLRWR 1/0 Record Prime Key | Prime Key 
urrent 

Delete DLDEL 1/0 Record Prime Key 

DLPOS 1,1/0 Cavatiad 


Prime Key 


Prime Key 


Get Next DLGXT I,1/0 | Next Record (Invalid) | Next Record 


Checkpoint 
Files 


2 


Checkpoint 
Files and . 
Program DCKPT 1/0 
Rollback 
Files DROLF 1/0 
Rollback 
Files and 
Program DROLP 1/0 
wo [| OT 


I,1/0 File-Id File-Id File-Id 
File-Id File-Id 
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FILE INFORMATION BLOCK MACRO 


The file information block macro provides the user with an efficient means 
of communicating to the Unified File Access System the specific characteristics 
of a file. However, before any communication can be established with UFAS, the 
user must invoke the macro package with the command LODM .DMAC. ALL file 
processing information between the user and UFAS is channeled through the FIB 
macro. For each file to be accessed, a FIB must be coded in the user program to 
define the characteristics of the file and the required processing parameters. 
Some of the file characteristics of an ISP file are contained in the utilization 
record stored in the first page of both the data file and the index file. 


Format 
The format of the FIB macro for an ISP file is as follows: 


FIBMAC fc,ISP,Cparameter-name-1,parameter-value-1,..., 


parameter-name-n,parameter-value-nJ,fci 


where: 
fc - file code assigned to data file 
fci - file code assigned to index file 


Multiple parameter-name and parameter-value combinations constitute a 
keyword-argument arrangement. These combinations may appear in any order within 
the brackets. If a combination of parameter~name and parameter-value is 
omitted, a default value is assumed. If the number of combinations exceeds one 
Line, an ETC card must be used to continue on the following Line. 


Only two parameter-values are required for the process area, file status 
code, and file name. Also, no symbol that defines an address can be repeated in 
another FIB macro. In order to repeat the same address in more than one FIB 
macro (e.g.~, a common process area) multiple symbols defining the same address 
must be used. Default values should not be specified for parameters that are 
not required, instead allow the default value to be applied automatically. 


The following List contains all the parameters and respective defaults 
available for this FIB macro: 


Parameter Name Value Default Comments 
Number of NBUF 3< (Minimum) N If CISZ is specified, 
buffers Integer<255 CISZ N=24192 characters 
allocated (4032 words). 
by UFAS 

12 If CISZ is not specified. 
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Parameter 


Record size 
in characters 


Record size 
word 


Record size 
error 
indication 


Control 
interval 
size in 
characters 


Checkpoint 


Name 


RSZ 


RSZWRD 


IRSZER 


Cisz 


CHKPT 


Value 


Integer<6144 


Address 


1920<n< 
24192 


Integer<2”7 ~4 


Default 


0 


Comments 


Maximum record size. Must 
be Less than or equal to 
the value used when the 
file was created. 


Use value from data file 


utilization record. 


Location of word containing 
number of characters in 
record. Record size to 
write with a Put macro. 
With a Get macro, UFAS re- 
turns size of record 

moved to process area. 


If no record size is speci~ 
fied, FIB record size is 
used with Put macro. With 
Get macro, the smallest re- 
cord size of the actual re- 
cord size and FIB record 
size is used. 


Indicates the action UFAS is 
to take when conflict occurs 
between the actual record 
size and that specified by 
the user. 


Record size conflicts are 
ignored. The smallest re- 
cord size of the actual 
record size or FIB record 
size is used as the cor- 
rect record size. 


Execute the error procedures 
specified by the USERER 
or ERRTBL parameters. 


Number of characters in 


each page of the data file. 


Use values from data file 
utilization record. 


Checkpoints are taken every 
time this many records are 
accessed. Does not apply 
with FMS ABORT/ROLLBACK/. 


No checkpoints are taken 
based on record count. 
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Parameter Name Value Default Comments 


Process PROAR Address, Location and starting char- 
area character acter position of an area 
within the user program to 
which records are moved 
and from which they are 
retrieved with Put and 
Get macros. The size of 
the process area is assumed 
to be equal to the FIB re- 
cord size and must start on 
a word boundary (character=0). 


File status FSCODE Address, Location and starting byte 

code character position of a two-byte 
ASCII file status code 
field in which UFAS stores 
a unique status code when- 
ever an exception condition 
occurs (see Section VIII). 


0,0 No file status code field. 
User error USERER Address Location of user-supplied 
procedure error procedure to which 


UFAS transfers control 
whenever an error is de-~ 
tected. 


0 No user error procedure 
specified. 


Error table ERRTBL Address Location of user-supplied 
table of error procedures 
based on processing mode. 


The format of the error 
table is: 


word 0, bits 0-17: must 
be zero. 


word 1, bits 0-17: address 
of error procedure for 


files in input mode. 


word 2, bits 0-17: address 
of error procedure for 


files in input/output 
mode. 


(bits 18-35 of each word 
are reserved.) 


When an error is detected, 
control is transferred to 

the appropriate error pro- 
cedure only if the user error 
procedure parameter is not 
specified. If neither a user 
error procedure parameter 

nor an error table parameter 
is specified, UFAS aborts 
when an error is detected. 
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Parameter 


File code 


List 


Name Value Default . Comments 


0 No user error procedures 
~ based on processing mode. 


FCLST Address Location of a list of file 
codes assigned to the second 
and succeeding units of the 
data file. 


A maximum of 7 additional 
file codes may be speci- 
fied. The format of the 
file code list is: 


word 0, bits 0-35: number 
of entries in the list, 


in binary. 


words i-n, bits 0-17: re- 
served. 


bits 18-35: file 
code in ASCII. 


0 Only one file code is as- 
signed to the file. 


Access mode ACCMOD SEQ SEQ Sequential mode (sequential 


only). 
RAN Random mode (random only). 
DYN Dynamic mode Csequential 
and random). 


Key pointer KEYPTR Address Location of key List, 


Rules 


which is a one-word entry 
followed by zeros. Key entry 
contains key off-set from 
beginning of record 

in bits 0-17. Bits 18-35 
contain the key Length. 


0 Key from data file utiliza- 
tion record is used. 


The file information block has several assigned fields. If a field is 
not applicable to a particular situation, it is ignored. Fields’ that 
are set ina conflicting manner cause the open function to abort the 
activity automatically. 


ALL pointers are set with bits 0-17 of the specified location. Values 
assigned to characters, such as number of characters or character 
offset, are based on 6-bit characters. 


All pointers can be reset whenever required. Hence, the user. can 
change pointers at will with the last pointer value always prevailing. 
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FUNCTIONAL MACROS 


Even though each one of the functional macros available performs a specific 
function and has its own format and set of rules, which are described separately 
in detail, certain conventions and rules are common to all functions. 


The Open and Close macros contain the information that is necessary to open 
or close one or more files with one statement. A common FIB List is built and 
is used by all files to be either opened or closed. The user can either reserve 
space in the program for the FIB List, or can allow the List to be built by the 
macro. : 


In order to execute a functional macro, information pertinent to the 


function must be supplied in a variable information block (VIB). The VIB 
address parameter specifies where the variable information is to be located. 
This parameter may be either zero or omitted if no parameters are required. If 


parameters are required, the user supplies values in the macro parameter fields 
to indicate the values to be entered in the VIB for execution of the function. 


Parameters are expressed in pairs containing a keyword and value. Commas 
must be used to separate each parameter name from the parameter value and two 
consecutive pairs of parameters. Parameter names ending in “I" indicate an 
indirect reference to the parameter value. Parameters may be specified in any 
order. If a parameter and its value are omitted, the default value are assumed. 


Normally, registers are saved when UFAS is entered and restored when UFAS 
returns control to the user, except index register 1 which is the transfer 
register. The only exception is when a user error procedure is entered. In 
this instance, the user registers are not restored because UFAS is relinquishing 
control only temporarily to allow the user to process the exception condition. 
When control is returned to UFAS Cat the completion of the error procedure), the 
saved registers are still valid. 
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Open Macro ~- DOPEN 


Function 


The Open 
their existence, and establishes tables for file processing. 


macro 


initiates 


the following four functions: 


processing of one or more files, verifies 


on Single-Open/User-Defined FIB List 


2. Single-Open/Macro-~Defined FIB List 


a4 Mult iple-Open/User-Defined FIB List 


4. Multiple-Open/Macro-Defined FIB List 


Format 


aes ate etic of FIB List 


| FIBLSI,address of pointer to FIB List 


DOPEN consists'7 of 


SINGLE-OPEN/USER-DEFINED FIB LIST 


} ,LCparameter-name-i, 


parameter~value-1,...,parameter-name-n,parameter-value-nJ 


NOTE: 


FIB List must be defined as Block Starting Symbol (BSS) 3. 


The parameters and respective defaults for this function are as follows: 


Parameter 


FIB address 


Routine 
package 
SYMREF name 


Name 


FIBA 


FIBAI 


SYM 


SYMI 


Value 


Address 


Address 


Routine 
package 
SYMREF 
name 


Address 


Default 


Comments 


Required 
Location of FIB for file 
to be opened. 


Location of FIB. 
Location of pointer to FIB. 


Required 

Location of a UFAS symbol 
reference (SYMREF) that 
corresponds to a set of 
routines used to process 
the file. 


Package of routines needed 
to process the file. 


Location of pointer to 
the routine package. 
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Parameter Name Value Default Comments 


Processing Required 
mode 
indicator 


MODE IN Input. 
10 Input/Output. 
MODEL Address Location of processing mode 


indicator (2 ASCII upper- 
case characters in bits 
0-17) . 


Routine Package SYMREF Name 


The Unified File Access System enables the user to utilize the system in 
its entirety or just portions of the system as required. Selection of the UFAS 
routines to be Linked at load time is effected by the user with a SYMREF 
(directory) name that designates the specific set of routines desired. Table 


6-2 Lists the ISP file format characteristics and the corresponding directory 
names. 


Table 6-2. ISP File Format Directories 


Access Processing Directory Name 
File Format Mode Mode CSYMREF) 


Sequential 
Random 
Dynamic 


Sequential 
(without positioning 
function) 
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The Open macro must be successfully completed before the execution of 
any input/output statements for a file. 


After the initial execution of an Open macro for a file, each 
subsequent DOPEN for this file must be preceded by the execution of a 
Close macro without the lock or unit parameters. 


Only open input (read) or open input/output (Cupdate) are valid 
processing modes. Open output (file create) is not allowed for this 
file format. 


The Open macro does not obtain or release the first data record. 


DOPEN establishes the current record pointer so that the first data 
record in the file can be accessed. 


When an ISP file is opened, the collating sequence and the index page 
size are determined from the utilization record in the data file. 


Values for maximum record size, data file page size, and key offset 
and length are obtained from the utilization records in the data and 
index files. UFAS applies the value from the utilization records’ for 
the preceding parameters, whenever the corresponding value in the FIB 
is the same as that in the utilization records or is not specified 
(zero). 
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The following table shows th action UFAS takes when the corresponding 
values are not equal. 


FIB Value i 
Parameter Versus Utilization Values Selected 
Record Value v 


Maximum i Activity is aborted. 
Record size UFAS applies i as maximum 
record size and continues. 


Data page i UFAS applies v as data page 
size size and continues. 


Key offset i Activity is aborted. 
and length 


Example 


Open the ISP file specified in FIBAD2 for sequential input without the 
Position function. 


1 8 16 

LODM -DMAC 

SYMREF -DISPS 

DOPEN ~FIBLS,LISTAD,CFIBA,FIBAD2,SYMI,ADSYM,MODE,INIJ 
LISTAD BSS 3 


FIBAD2 FIBMAC  D.,ISP,CPROAR,RECORD,O1,1. 


ADSYM ARG -DISPS 
RECORD BSS 14 


SINGLE-OPEN/MACRO-DEFINED FIB LIST 


This function initiates processing of only one file. It builds a FIB List 
in the user program immediately following the DOPEN command, and storage is 
allocated automatically. 


Format 
DOPEN ,,UCparameter~name-1,parameter~value-1,...parameter-name-n, 
parameter-value-n] 


ETC 
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The following parameters and respective defaults apply. 
Parameter Name Value Default Comments 


Same as Single-Open/User-Defined Function. 


Rules 


oe Do not supply FIB List address. 
rae Left bracket must be preceded by two commas. 


3. ALL other rules that apply to the Single-Open/User-Defined 


MULTIPLE-OPEN/USER-SUPPLIED FIB LIST 


Function. 


This function initiates the processing of from one to n files. It builds 
one FIB List, which is used by all files. 
Format 
DOPEN FIBLS, FIB List address, C*, FIB address, mode, 
ETC rewind indicator, symref name, *, FIB address 2, 
ETC mode 2, rewind indicator 2, Symref 2,....] 
The following parameters and respective defaults apply: 
Parameter Value Default Comments 
FIB Address Address Required; location of FIB for 
file to be opened 
PROCESSING 
MODE OT OT Output 
IN Input 
10 Input/Output (Applies to mass stor- 
age) 
EX EXTEND (does not apply to GFRC on 
mass storage) 
REWIND Y Y Rewind Option 
Indicator 
N DO NOT REWIND ON OPEN 
Routine . . 
Package Symref name Required; package of routines 


needed to process the files 
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Rules 


Ts Space for 


n 


es Each List 
3. Key words 


4. Parameters must be Listed in predefined order.. 
however, 


Ds ALL other rules that apply to the 


This 


List 


Format 


DOPEN 


ETC 


is used by all files. 


umber of files to be opened. 


the FIB List must be defined as 1+2n words where nis 


the 


of parameters for every file must be preceded by an *. 


must not appear within the brackets. 


Defaults may be taken; 


if they are, the subsequent comma must be used. 


Single-Open/User-Defined Function. 


MULTIPLE-OPEN/MACRO-DEFINED FIB LIST 


function 


,~/l*, FIB address, mode, 


symref name,,*.....] 


initiates processing of from one to n files. 
FIB List within the user program immediately following the DOPEN command. 
Storage for the FIB List 


It builds one 
This 
is automatically allocated. 


rewind indicator 


The following parameters and respective defaults apply: 


Parameter 


FIB Address 


PROCESSING 
MODE 


REWIND 
Indicator 


Routine 
Package 


Value Default 


Address 


OT OT 


Symref name 


Comments 


Required; location of FIB for 
files to be opened 


Output 

Input 

Input/Output (Capplies to 
mass storage) 


EXTEND (does not apply to GFRC 
on mass storage) 


Rewind Option 


DO NOT REWIND ON OPEN 


Required package of routines 
needed to process the files 
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Rules 


Put Macro 


Function 


Forma 


DLPUT 


Parameter 


Two commas must precede the left bracket. 
Each List of parameters for every file must be preceded by an *. 
Key words must not appear within the brackets. 


Parameters must be listed in predefined order. Defaults may be taken; 
however, if they are, the subsequent comma must be used. 


FIB List address should not be supplied. 


ALL other rules that apply to the Single-Open/User-Defined Function. 


~ DLPUT 


The Put macro adds a logical record to the file. 


t 


FIB address,,alternate return address,Cparameter-name-1] 


The Put macro has the following parameters and respective defaults: 


Name Value Default Comments 


Indirect FIB FIBI None Optional 


addressing 


Rules 


If this key word is speci- 
fied, it implies that argu- 
ment 1 is not the FIB ad- 
dress, but is a pointer to 
a location that contains 
the FIB address. 


The designated file must be open for I/0 at the time of the execution 
of this statement. 


The current record pointer is unaffected by the execution of a DLPUT. 
After a DLPUT, the current record pointer can be set by executing a 
DLPOS macro with GT parameter value. . 


The maximum record size for a file is established at the time the file 
is created and cannot subsequently be changed. A record size smaller 
than the maximum (RSZ) can be specified in the record size word 
CRSZWRD). 
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4. The value of the key must be unique and set by the program to the 
desired value prior to execution of the DLPUT macro. An invalid key 
condition results from duplicate keys. The key must have the same 
data type and code set as the key values in the file. 


5% Records can be added to an existing ISP file in any order. 
6. When the invalid key condition is recognized, the execution of the 


write function is unsuccessful and the contents of the record area are 
unaffected. Control is returned to the alternate return address. 


7. The record is moved from the process area to the buffer. If the 
record size word parameter is not specified, the maximum record size 
is used. 

Example 


Put a record in the file specified by FIB1. 


1 8 16 
DLPUT FIB1,,ALT1 
FIB1 aa D.,ISP,CPROAR,RECORD,0OJ,1. 
ALT1 sin 
RECORD a 14 


Rewrite Macro - DLRWR 


Function 


The Rewrite macro causes the specified record to be rewritten to the file. 


Format 


DLRWR FIB address,,alternate return address,Cparameter-name-1] 


The parameters and respective defaults for the Rewrite macro are as 
follows: 


Parameter Name Value Default Comments 
Indirect FIB FIBI None Optional 
addressing If this key word is speci- 


fied, it implies that argu- 
ment 1 is not the FIB ad- 
dress, but is a pointer 

to a location that contains 
the FIB address. 
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Rules 


1. The designated file must be open for 1/0 at the time of execution of 
this statement. : 

2 x For files opened for sequential access, the last input/output function 
executed for the associated file, prior to the execution of the DLRWR 
function, must have been a successfully executed DLGXT. For ISP 
files, an error condition is returned if the key values in the record 
and the process area do not match. 

owe ‘The size of the record in the process area must be equal to the size 
of the record being replaced. 

4. The current record pointer is not affected by the execution of a DLRWR 
macro. After a DLRWR, the current record pointer can be set by 
executing a DLPOS macro with GT parameter value. 

aa For a file opened for random or dynamic access, UFAS logically 
replaces the record specified by the contents of the key (CKEYPTR).§ If 
the file does not contain the record, an error condition is returned. 

66 When the rewrite is unsuccessful, the file is unaffected. 

7. When an invalid key condition or unsuccessful write function is 
detected, control is returned to the alternate return address. 

8. The key to be used for comparison must be in its appropriate position 
in the process area and must have same data type and code set as the 
key values in the file. 

Example 
Rewrite a record in the file specified in the FIB. On a logical error, 


return to ALT. 


1 8 16 
DLRWR FIB,,ALT 
FIB a D.,ISP,CPROAR,RECORD,OJ,1. 
ALT a 
RECORD ies 14 
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Delete Macro - DLDEL 


ion 


Funct 


Forma 


DLDEL 


Param 


The Delete macro logically deletes a record from a file. 


t 


FIB address,,alternate return address,Cparameter-name-1] 


The Delete macro has the following parameters and respective defaults: 


eter Name Value Default Comments 


Indirect FIB FIBI None Optional 


addressing 


Rules 


If this key word is speci-~ 
fied, it implies that argu- 
ment 1 is not the FIB ad- 
dress, but is a pointer to a 
Location that contains the 
FIB address. 


The designated file must be open in the 1/0 mode at the time of the 
execution of this statement. 


For a file opened in the sequential access mode, the statement 
executed for this file prior to the execution of the DLDEL macro must 
have been a successful DLGXT. For ISP files, an error condition is 
returned if the key values in the record and the process area do not 
match. 


For file opened for random or dynamic access, the record identified by 
the key is logically deleted from the file. If the record does. not 
exist, an invalid key condition is returned and the alternate return 
is taken. 


The current record pointer is not affected by the execution of the 
DLDEL function. After a DLDEL, the current record pointer can be set 
by executing a DLPOS macro with GT parameter value. 


The key to be used for comparison must be in its appropriate position 


in the process area and must have same data type and code set as the 
key values in the file. 
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Example 


Delete the record specified in FIB2 and on a logical error execute the 
procedure at ALT2. a8 


1 8. 16 
DLDEL FIB2,,ALT2 
FIB2 ane D.,1SP,CPROAR,RECORD,OJ,1. 
ALT2 on 
RECORD Se 14 


Position Macro —- DLPOS 


Function 


The Position macro provides for logically positioning the file _ for 
subsequent access. 


Format 


DLPOS FIB address,VIB address,alternate return address, 


CVIB-parameter~-name-1,VIB-parameter-value-1] 


NOTE: VIB must be defined as BSS 2. 


The Position macro has the following parameters and respective defaults: 


Parameter Name Value Default Comments 
Comparison Optional 
type Position file to the record 
indicator containing the key. 
FCT EQ EQ Means equal to specified key. 
GT Means greater than specified 
key. 
GE Means greater than or equal 


to specified key. 
FCTI Address Location of word having FCT 


value in bits 0-17 in upper- 
case ASCII characters. 
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Rules 


Example 


The type of comparison specified Cequal to, greater than, or equal to 
or greater than) occurs between the key associated with a record in 
the file and a data item defined by the key field (KEYPTR in FIB). 


If VIB parameter is not specified, the relational operator EQ (equal 
to) is implied by default. 


If the comparison is not satisfied, execution is unsuccessful, the 
position of the current record pointer is undefined. An invalid key 
condition is returned and the alternate return is taken. 


The key to be used for comparison must be in the appropriate position 
in the process area and must have the same data type and code set as 
the key values in the file. 


Set the current record pointer to the record with key value greater than or 
equal to the key value specified in the FIB. If such a record does not exist, 
execute the code at ALT. 


1 8 16 
DLPOS FIB,VIB,ALT, CFCT,GE] 
VIB BSS 2 
FIB FIBMAC D.,1SP,CPROAR,RECORD,O,ACCMOD,DYNI,I1. 
ALT NULL 
RECORD BSS 14 


Get Next Macro ~- DLGXT 


Function 


The Get Next macro makes the next logical record available in ascending key 


order. 


Format 


DLGXT FIB address,,end-of-file address,Cparameter-name-1] 
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The parameters 
follows: 


Parameter Name 


Indirect FIB FIBI 
addressing 


and respective defaults for the Get Next macro are as 


Value - Default Comments 


None. Optional 
If this key word is speci- 
fied, it implies that argu- 
ment 1 is not the FIB ad- 
dress, but is a pointer to a 
Location that contains the 
FIB address. 


Rules 

Vs If the next logically sequential record was deleted, it is bypassed. 

2x An end-of-file condition is returned when no next logical record 
exists in the file. This condition is considered an unsuccessful read 
request. Control is returned to the end-of-file address. 

Ss If the position of the current record pointer is undefined, an error 
condition results. The current record pointer is not defined 
following an unsuccessful read request, after a checkpoint under 
ACCESS/MONITOR/, or rollback. 

4. If present, the size of the record made available in the record size 
word is returned. The size made available either is the actual size 
or the maximum size, whichever is the smallest. 

= The record is moved: from the buffer to the process area. 

Example 


Get the next record. If end of file, go to ALT. 


1 8 
DLGXT 

FIB FIBMAC 

ALT NULL 


RECORD BSS 


16 


FIB,,ALT 


D.,ISP,CPROAR,RECORD,OJ,1. 


14 


6-20 DC89-03 


Get Macro - DLGET 


Function 


The Get macro makes available a specified record based on a key value. 


Format 


DLGET FIB address,,alternate retutm address,Cparameter-name-1] 


The Get macro has the following parameters and respective defaults: 


Parameter Name Value Default Comments 
Indirect FIB FIBI None Optional 
addressing If this key word is speci- 


fied, it implies that argu- 
ment 1 is not the FIB ad- 
dress, but is a pointer to 
a Location that contains 
the FIB address. 


Rules 


4 Following the unsuccessful execution of any DLGET macro, the position 
of the current record pointer is undefined. The contents of the 
associated record area remain undisturbed. 


2. The execution of a DLGET causes the value of the key to be compared 
with the value contained in the corresponding data item of the stored 
records in the file, until the first record having an equal value is 
found. The current record pointer is positioned to this record, which 
is then made available. If no record exists, execution of the 
function is unsuccessful and the alternate return is taken. 


S33 The key to be used for comparison must be in its appropriate position 
in the process area and must have the same data type and code set as 
the key values in the file. 

4. The size of the record made available is returned in the record size 
word, if present. The size made available either is the actual size 
or the maximum size, whichever is the smallest. 


5. The record is moved from the buffer to the process area. 
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Example 


Get the record with key value equal to that in the process area. If it is 
not an active record, return to ALT. 


1 8 16 
“DLGET FIB,,ALT 
FIB jramac D.,I1SP,CPROAR,RECORD,O,ACCMOD,RANI,1. 
ALT a 
RECORD aes 14 


Return Macro - UFSRET 


Function 


The Return macro provides a means of returning control to UFAS after a user 
error processing procedure is completed. 


Format 


UFSRET ERROR 


NOTE: User error procedures are specified in the FIB macro via the user error 
procedure and error table parameters. 


When a user error procedure contains a UFAS macro, which can result also in 
a user error procedure for another file being entered by UFAS, the second 
procedure must conclude also with a UFSRET return for that particular function. 


Example 
Return to UFAS after a user error exit. 


a 8 16 


UFSRET ERROR 
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Checkpoint Files Macro - DCKPF 


Function 


The Checkpoint Files macro establishes a checkpoint for all open files. 


Format 


DCKPF 


Rules 


All randomly allocated files written by the program must have’ FMS 
ABORT/ROLLBACK/ protection. 


All opened files are included in the checkpoint. 

The macro must be executed at a point from which processing of the 
files can be. resumed if a rollback does occur, since the program is 
not checkpointed. 

The macro performs a buffer flush before establishing the checkpoint. 
For any files being processed with ACCESS/MONITOR/ (see File 
Management Supervisor manual), buffers are set empty and the record 


pointer is set to undefined. 


Checkpoint is taken only if protected files are present and have been 
opened. 


Checkpoint Files and Program Macro ~- DCKPT 


Function 


The 


Checkpoint Files and Program macro establishes a checkpoint for all 


open files and for the program. 


Format 


DCKPT 


Rules 


All randomly allocated files written by the program must have’ FMS 
ABORT/ROLLBACK/ protection. 


All open files are included in the checkpoint. 
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The macro must be executed at a point from which processing of the 
files can be resumed if a rollback does occur. 


The macro performs a buffer flush before establishing the checkpoint. 


For any files being processed with ACCESS/MONITOR/ (Csee File 
Management Supervisor manual), buffers are set empty and the record 
pointer is set to undefined. 


A QX file large enough to accommodate the program must be allocated, 
but not declared in the user program (see Program Recovery/Restart 
manual). 


Checkpoint is taken only if protected files are present and have been 
opened. 


The Q@ register (bits 18-35) contains the status code returned by MME 
GECHEK as described in the General Comprehensive Operating Supervisor 
manual. Zero status indicates a successful checkpoint. 


Information Macro = DINFO 


Function 


The DINFO macro either stores File Access Control Table (CFACT) information 
or the size of each section of the FACT table into a user specified table area. 


Format 


DINFO 


NOTE: 


The 
follows: 


Parameter 


Function 


7/80 


FIB address, VIB address, alternate return address, 
Coparameter-name-1, parameter-value-1...., 
parameter-name~n, parameter-value-n] 


VIB must be defined as BSS 1. 


parameters and respective defaults for the Information Macro are as 


Name Value Default Comments 
FCT 1 Store FACT section 1 into user 
table area. Includes words 


FACT-8 through FACT +98 for all 
file types. 


2 Store FACT section 2 into user 
table area. Includes words QO 
through +59 for UFF Indexed with 
no alternate keys: 0 through +81 
for UFF Indexed with alternate 
keys; 0 through +17 for 
ANSI/IBM/GFRC and UFF tape; QO 
through +41 for ISP; and QO 
through +9 for H2000. 
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Parameter 


Table 
Pointer 


Indirect 
FIB 
Addressing 


Name Value Default Comments 


3 Store FACT section 3 into user 
table area. Include words QO 


through 26 (dec.) 


4 4 Store the entire FACT into the 
user table area. 


5 Store FACT-8 through FACT +5 of 
section 1 into user table area. 


This option provides FACT 
information that is equivalent to 
the GFRC FILCB. 


6 Store the size (Cin binary) of 
FACT sections 1, 2, and 3 into a 
3-word user defined table area. 
Zero will be given as the size of 
section 3 if it is non-existent. 


TBL Address Required. 
The location of a table Large 
enough to contain the requested 
information. 


FIBI None Optional. 
If this keyword is specified, it 
implies that argument 1 is_ not 
the actual FIB address, but is a 
pointer to a Location that 
contains the FIB address in bits 
0-17. 


The designated file must be opened in either the input or I/0. 


The TBL parameter is required and must point to an area large enough 
to contain the requested information. 


The user must provide an alternate return address. 


If an error is detected during execution of the DINFO macro, UFAS will 
return control to the user via the alternate return except when 
executing the DINFO macro on any unopened file in which case UFAS will 
branch to a users error procedure if it is present or abort. 


A function code of 6 requires a table size of 3 words. After a 
successful execution of a DINFO macro the table will contain the 
following values: 


Word Contents 
1 Size of FACT section one, right 


justified. (In Binary) 


2 Size of FACT section two, right 
justified. (In Binary) 


3 Size of FACT section three, right 
justified. (Cin Binary) A size of 
zero will be given if section 3 
is non-existent. 
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10. 


Example 


If no function code (FCT) parameter is specified the entire FACT will 
be given to the user. 


The FACT sizes given in this specification are applicable to SR ADFe. 


This macro may not be executed for files processed under TP or 
I-D-S/II. 


The following error conditions will be identified: 


ae 8-01 File not opened. (CALT return not taken) 

b. FO A potential FO memory fault during DINFO execution may 
take place because of insufficient table area size. 

Ger oF Invalid function code 

ce. Fe The user asked for FACT section 3 and it does not 
exist. 


Listed below, in decimal, are the size of the entire FACT for the 
various file formats. 


UFF SEQUENTIAL Tape and Mass Store eewiee 192 
UFF RELATIVE eeenonweaoceoeeaesee@nwveeeeeeeteoeaeesoeeeeeoesee 192 
UFF INDEXED @eeeneeeaeenseeseseen#eeseeeeseeeoeneensmeeeeeneesee 192 


IBM wccccwcccevesccccacccsccccccccccecevecs 192 
ANSTeccccnnccccevecccccncnnccccccescccsens 192 
HZ000 wan ccncccnencncccncccccccccccscecceee 136 
UNLT wpuwcccnscecevnccensccancencceavescccee 192 


GFRC Tape and Mass Store wuwccccsaccecevecse 1592 


ISP @ese@eeevs#sesseeeeseeeaeeaeeespesaeeasnwsensweenweenswteneeeesmeeneeesese 149 


Store the entire FACT contents of the file specified by FIBI into a table 
specified by TABLE. 


1 8 16 
DINFO FIB1,VIBI,ALTRET,CFCT,4,TBL, TABLEJ 
FIB1 FIBMAC DA,UFF,CPROAR,RECORD,0,ORG,IND, 
ETC KEYPTR,PRIMEI,KY 
RECORD BSS 21 
PRIME VFD * 1/0,17/0,18/4 
ZERO 
VIBI BSS 1 
TABLE NULL 


ALTRET NULL 


7/80 
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Rollback Files Macro - DROLF 


Function 


The Rollback Files macro restores the files open at the time of the 
previous checkpoint to their state at that time. The effect is to cancel all 
changes to the files since the previous checkpoint. 


Format 


DROLF 


Rules 
1s A DCKPF or ODCKPT macro must be executed before performing the 
rollback. 


2s After rollback, the current record pointer is undefined. 
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Rollback Files and Program Macro - DROLP 


Function 


The Rollback Files and Program macro restores the program and all files 
that are open at the time of the previous checkpoint to their state at that 
time. The effect is to cancel all changes to the files since the checkpoint and 
to restart the program from that point. | 


Format 

DROLP 

Rules 
Ne A DCKPT macro must be executed before a rollback is executed. 
2. After rollback, the current record pointer is undefined. 


Wrap-up Macro ~ DWRAP 


Function 


The Wrap-up macro closes files currently open. 


Format 


DWRAP 


Rule 


Alt opened files are closed. Device disposition codes are not honored. 
Close Macro - DCLOS 


Function 


The Close macro terminates the processing of one or more files. DCLOS 
consists of the following four functions: 


1. Single-Close/User-Defined FIB List 


2s Single-Close/Macro-Defined FIB List 
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3% Multiple-Close/User-Defined FIB List 


4. Multiple-~Close/Macro-Defined FIB List 
SINGLE-CLOSE/USER-DEFINED FIB LIST 


Format 

DCLOS | FIBLS,address of FIB List ,Cparameter-name-1, 
FIBLSI,address of pointer to FIB List 
parameter-value-1,...,parameter-name-n,parameter-value-n] 


NOTE: FIB List must be defined as BSS 2. 


The following parameters and respective defaults apply: 


Parameter Name Value Default | Comments 
FIB address Required 


Location of FIB for file 
to be closed. 


FIBA Address Location of FIB. 
FIBAI Address Location of pointer to FIB. 
Rewind Optional 
indicator 
REW RWFL RWFL Rewind file on close. 
LKFL Lock file (see note). 
REWI Address | Location of rewind indi- 


cator (4 ASCII uppercase 
characters). 


REWV Rewind value. 

0 0 Rewind file. 

3 Lock file (see note). 
REWVI Address | Location of rewind binary 


representation value in 
bits 18-35. 


NOTE: Whenever the Lock parameter is used, the file is disposed of as indicated 
by the disposition code specified on the device control card (see Control 
Cards Reference Manual). The Lock parameter and a save or _ continue 
disposition code are mutually exclusive. If a file that has an S or a C 
disposition code is closed with lock, the lock request in ignored, the 
file is not rewound or released, and no indication is given to the user 
that the lock request was ignored. 
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The Close macro can only be executed for a file that was opened with DOPEN. 


Example 
Close and Lock the file specified in the FIB at ADF. 


1 : 8 16 


DCLOS FIBLS,LIST3,CFIBA,ADF,REWV,3] 


LIST3 BSS 2 
ADF FIBMAC D.,ISP,CPROAR,RECORD,0OJ,1. 
RECORD BSS 14 


SINGLE-CLOSE/MACRO-DEFINED FIB LIST 


Format 


DCLOS ,,Lparameter-name-1,parameter-value-1,...parameter-name-n, 
parameter-value-n] 


The following parameters and respective defaults apply: 
Parameters Name Value Default Comments 


Same as Single-Close/User-Defined Function 


Rules 


V6 FIB List address is not to be supplied. 
2s Left bracket must be preceded by two commas. 


a ALL Single-Close/User-Defined Function Rules apply. 


DC89-03 


MULTIPLE-CLOSE/USER-SUPPLIED FIB LIST 


This function terminates the processing of one to n files. Only one FIB 
List is built, which is utilized by all files to be closed. 


Format 


DCLOS FIBLS, FIB List address ,(€*, FIB address, 
ETC RewV, *, FIB address, RewV,*,..eecd 


The following parameters and respective defaults apply: 


Parameter Value Default - Comments 
FIB address address Required; location of FIB, for 


file to be closed 


Rewind 
Indicators 
0 0 Rewind file 
1 Do not rewind file 
2 Rewind and Lock file 
3 Lock file without rewind 
4 Rewind and unload file 
6 Lock file with rewind and unload 
8 Rewind unit 
9 Do not rewind unit 
10 Rewind and lock unit 
12 Rewind and unload unit 
Rules: 
1. Space for the FIB List must be defined as itn words, where n is’ the 
number of files to be closed. 
2. Each List of parameters for every file must be preceded by an *. 
3. Key words must not appear within the brackets. 
4. Parameters must be Listed in predefined order. Defaults may be taken; 


however, if they are, the subsequent comma must be used. 


25 ALL Single-Close/User-Defined Function Rules apply. 
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MULTIPLE-CLOSE/MACRO-DEFINED FIB LIST 


This function terminates the processing of from one to n files. It builds 
one FIB List in the user program, immediately following the DCLOS command. 
Storage is automatically allocated, and the list is used by all files that are 
closed via this function. 


Format 
DCLOS ,,C€*,FIB Address, REW-V,*,FIB Address2,REW-V,...] 
The following parameters and respective defaults apply: 
Parameters Value Default Comments 


FIB address address Required; location of FIB for 
file to be closed 


REWIND Rewind value 
INDICATOR 
0 0 Rewind file 
1 Do not rewind file 
2 Rewind and unload file 
3 Lock file without rewind 
4 Rewind and unload file 
6 Lock file with rewind and unload 
8 Rewind unit 
9 Do not rewind unit 
10 Rewind and lock unit 
12 Rewind and unload unit 
Rules: 
ce Two commas must precede the Left bracket. 
2% Each List of parameters for every file must be preceded by an *, 
35 Key words must not appear within the brackets. 
4. Parameters must be Listed in predefined order. Defaults may be taken; 


however, if they are, the subsequent comma must be used. 
A The FIB List address should not. be supplied. 


6. All Single-Close/User-Defined Function Rules apply. 
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SECTION VII 


DM-IV DATA BASE FILE ORGANIZATIONS 


INTEGRATED FORMAT 


An integrated file can contain variable size records on fixed-length 
control intervals. This file must be allocated to a mass storage device and can 
be accessed sequentially, randomly, and dynamically by a data base control 
system. Access is effected by a data base key to obtain the control interval 
and the record within the control interval. After the file is allocated and 
pre-formatted with control interval information, it remains static in size. 
Concurrent access is provided to support multiple user programs simultaneously. 
Detailed record formats and inter-relationships reside in an external control 
table (schema), which is paired with the integrated file in execution. 


I-D-S/II performs all processing of the content of logical records and 
creates and maintains set relationships, contents of pointer fields, matching of 
key values, and owner/member status in integrated files. 


UFAS provides support to I-D-S/II by performing such functions as buffer 
management and making calls to the Input/Output Supervisor for reading and 
writing control intervals of integrated files. 


INDEXED FORMAT 


This indexed organization is similar to the indexed file format described 
in Section V. Several significant differences make access to this format 
impossible from anywhere except DM-IV data base routines. The differences are: 


e DBK is used in Lieu of a page and line. DBK is interpreted by 
I-D-S/II routines. 

e Key values may consist of other than alphanumeric characters. 

e Alternate key index structures must be created with DM-IV utility 
Q2KEYF. See the DM-IV Utility Routines manual for a description of 
this utility. 


e Record TYPE information defined during schema generation is stored 
with each record. 
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DUAL DATA ENVIRONMENT 


Dual data environment (DDE) file formats are similar to the DM-IV indexed 
formats in Native mode. The data content is BCD, while the control information 
is byte oriented. 


DM-IV indexed users should note the following restrictions: 


e Alternate key access. is not supported 

e The record TYPE of a record added by a COBOL-68 program will be zero. 
An I-D-S/II user routine must be included to define the TYPE of these 
records. 


Directory Selection 


The UFAS directory selected by the validator can be overridden with the 
following JCL cards: 


1 8 16 

$ USE package-name-1 

$ NLOAD package~name-2 

$ OPTION LDLIB 

$ EQUATE package~name-1/package-name-2/ 


The $ USE card specifies the directory package to be loaded. The $ NLOAD 
card inhibits the Loading of the default directory package. The $ OPTION card 
causes the software Libraries to be searched and the directory packages loaded 
immediately, before processing the $ EQUATE card. The $ EQUATE instructs the 
loader to assign the address of package~name-1 to all instructions that 
reference package-~name-2, 


The validator defaults to the update/retrieval directory. The user must 
override the default directory to load the data base or to reduce the amount of 
memory for a retrieval-only system. 


Tables 7-1 and 7-2 specify the directories best suited for a minimum memory 
configuration. 
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Table 7-1. UFAS Directories For DM-IV-TP 


PROCESSING 
MODE RETRIEVAL UPDATE/ 
DATA ONLY RETRIEVAL 


BASE ORGANIZATION 


INTEGRATED 
w/o alt keys 


with alt keys 


INDEXED/ 
INTEGRATED 
w/o alt keys 
with alt keys 


Table 7-2. UFAS Directories For DM-IV (Batch Or Timesharing) 


PROCESSING 


MODE RETRIEVAL UPDATE/ 
DATA ONLY RETRIEVAL 
BASE ORGANIZATION 


INTEGRATED 
w/o alt keys -DIDS2 


with alt keys ~DID2uU° 
-DIDYA 


INTEGRATED 
w/o alt keys 
with alt keys 


8-ecord Location key only 
both record Location key and additional access keys 
Cuses Less memory than DIDYA, the validator default 
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SECTION VIII 


FILE GENERATION AND CONCATENATION 


The File Generation facility allows the user to maintain file generation 


groups and provides the ability to concatenate UFAS sequential files on tape and 
mass storage. 


File Generation Group maintenance consists of the ability to define, 
chronologically or functionally, the following: 


e Related catalog data files 

@ UFAS, insertion of file generation numbers in cataloged output tape 
files 

e Verification of file generation numbers in cataloged input tape files 


Support of file generations and concatenation is provided for the following 
file formats and media types. 


File Format Media Type 
GFRC TAPE 
TAPE? 
TAPE9 
PRMFL 
ANSI TAPE9 
IBM TAPE9 
UFF TAPE9 
RESTRICTIONS 


Unlabeled tape file, mixed TAPEs and PRMFL concatenation sequences are not 
supported. 


All File Generation Group member files and file concatenation element 
member files must: (1) be sequential files; (2) have identical block size; (3) 
be in the same recording mode; (4) be the same media type; and (5) have the same 
record format. GFRC sequential mass store files to be concatenated must be of 
the same size and consist of single extents. In addition, if code set 
transliteration is specified, the following requirements apply: 


® File Generation entries (output) can specify any allowable internal 
code set, but the external code set must be the code set of the 
defined File Generation Group of which this entry is to be a member. 


7/80 8-1 DC89-O3A 


e Input transliteration can be from the external code set of the defined 
File Generation Group to any allowable internal code set. 


e Input code set transliteration, if specified for file concatenation, 
must be the same for all files in the defined concatenation set. 


Multi-file tape volumes and input tape label name verification are not 
allowed. 


User Label exits are being serviced only to the extent that this feature is 
supported by UFAS (Ci.e., Limited to GFRC labeled tape files). 


Concatenated files can be opened (DOPEN) for input only. The user must 
code a single OPEN (DOPEN) and ae single CLOSE (DCLOS) for each file 
concatenation set. Intervening CLOSE and OPEN services are provided by UFAS. 
The concatenated file must be opened with rewind to insure proper file. position 
at the start of each activity. 


The position macro (DLPOS) can be used only if the number of records to be 
skipped in the forward or backward direction defines an extent of the current 
file in the concatenation set equal to, or less than, the number of records 
processed (backspace) or the number of records known to remain in the file 
(forward-space). 


FILE GENERATIONS 


The characteristics of each file in the File Generation Group are 
maintained in a control file called the File Group Index. The user can select 
any specific file or any number of group member files for concatenation in-= any 
prescribed input order (i.e., current and prior generations). 


New files can be entered into a File Generation Group as additions to the 
defined File Group Index or as replacements in the defined file notation 
definition (i.e., future generations). 


The File Group Index is created and maintained by the utility program, 
FGCRE. For a detailed explanation of the use of this program, refer to File 
Generation Utility reference manual, order number DG79., 


Files are allocated within the File Generation Group via the $ FILGP 
control card. 
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FILE CONCATENATION 


Files that are members of a defined File Group Index are concatenated as a 
result of use of the $ FILGP control card. 


Example: 


$ FILGP IN,X1D,R,CAT/FILE, (-6,-4,-3,-1) 


In which case, cataloged files from the File Group Index identified by 
CAT/FILE generations, minus 6,4,3, and 1, become input to this activity as 
a single continuous file. 


Files can be concatenated by building a group of file control cards. The 
file code field of the first file control card is the file code expected by the 
application program. 


Subsequent files are concatenated with the first file by a double quote 
character (") in the file code field of the control card. 


This method permits the concatenation of logical sequences of uncataloged 
files. 


Example: 

$ TAPE9 IN,X1D,,12345,,,,DEN16 
$ TAPES "772 3456,,,,D0EN16 

$ TAPES ",,,40171,,,,DEN16 


In this example, tape files resident on reel serial numbers 12345, 23456, 
and 40171 will become input to this activity as a single continuous’ file. 
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SECTION IX 


TIME SHARING ENVIRONMENT 


A user program can be executed under the Unified File Access System in 
either batch or time sharing mode. However, not all file formats supported in 


the batch mode are available in the time sharing mode. The file formats 
supported in the time sharing mode are the GFRC Linked mass storage and the UFF 
of sequential, relative, indexed, and integrated files. Tape file formats, 


Indexed Sequential Processor file formats, and the building of UFF indexed 
alternate keys are not supported in the time sharing mode and no label 
processing is provided for the file formats supported. 


The directory names (symbol references) used to select the UFAS routines to 
be Linked are the same for both the batch mode and time sharing mode. 


FILE SPECIFICATION 


If the file code (fc - two ASCII characters) specified in the file 
information block macro corresponds to a file already contained in the Available 
File Table (AFT), the file contained in the AFT will be operated upon. If the 
file selected is an indexed file, and the file code of the data file is in the 
AFT, then the file code assigned to the index file in the file information block 
macro must be also in the AFT. 


If the file code is not found in the time sharing Available File Table, by 
UFAS, the user must supply the operand ASCII descriptor (CADSC9) for the catalog 
or file string as the file name parameter, FLNAME, in the file information block 
macro. The file name descriptor, FLNAME, appears in word 9 of the FIB. 


The file description must have one of the following formats: 


e Filename 

e Filename$Password 

e USERID/Filename 

e /Catalogname/Filename 

e USERID/CatalognameSPassword/.../Filename$SPassword,Permissions 
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e Filename "Alternatename",Permissions 


e Filename,Permissions . 
e *xFilename 
e * 


The input strings for these formats may be in either lowercase ASCII or 
uppercase ASCII characters. The scan of the file descriptor string is 
terminated by any non-valid character (see File Management Supervisor manual for 
valid file name characters), excluding comma, slant, dollar sign, quotation 
marks, or blanks. The two file strings for an indexed file must be given as: 
data file string; index file string. The ASCII descriptor in FLNAME must have a 
total character count, that is, it must include the count of both file strings 
plus one for the character ";",. 


FILE ACCESSING 


File name accessing when the file is not specified in the AFT or is in the 
AFT, but was not entered by UFAS, is governed by the following rules: 


Te If the catalog or file description has a valid alternate name, this 
name becomes the file name in the AFT. 


26 If the catalog or file description has a file name with less’ than 
eight characters but no alternate name, the file name is entered in 
the AFT. 

Be Descriptions containing a name with eight characters or less, preceded 


by an asterisk, are entered in the AFT only if the description occurs 
as a separate file name without user identification, permissions, or 
alternate name. The asterisk as a name by itself is converted to *src 
(current file) and entered in the AFT. 


4. A file name preceded by a slant (/) cannot be a temporary file. 

Ss If no permissions are specified in the file description, the default 
is: 
ae Read - if the user identification in the catalog or file string 


differs from the current user identification. 


b. Read and Write - if the user identification is the same as that 
of the current user. 


6. If a file being opened has a file name or alternate name of ae file 
already entered in the AFT by UFAS, the following occurs: 


A unique alternate name is generated as the AFT name with the format 
*tnnnnnn, where n represents an ASCII numeric string ranging from 1 to 
999999. Then, the file is accessed again. If the status is "file 
busy" an error has occurred; otherwise, the generated alternate name 
becomes the valid name assigned to the file. 


tT. If a file name or alternate name is the same as that of another file 
in the AFT but not entered by UFAS, the following occurs: 


a. If the file referenced in the FIB has no intermediate catalogs 


and the file specified in the AFT is a temporary file, the file 
already in the AFT is used. 
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b. If the requested file has intermediate catalogs and the file 
specified in the AFT is a temporary file, an error message is 
issued at the terminal. 


Cs If the file requested has intermediate catalogs and the file 
specified in the AFT is a permanent file, the file originally in 
the AFT is removed. 


8. If a file description has a name with more than eight characters’9 and 
an alternate name has not been specified, an alternate name with Less 
than nine characters is generated also having the format *tnnnnnn. 


9. UFAS creates: 


a. A temporary file if a file with no intermediate catalogs was 
specified or the file name includes an asterisk. 


b. A permanent file if the file name is a valid permanent file name. 


10. If errors are detected in enforcing the above rules, error messages 
are given to the users terminal. If a users error routine has been 
specified, via the USERER parameter, it will be invoked with a major 
status of 8 and a substatus of 91. 


TERMINAL INTERFACE 


UFAS does not have the capability to write to a file assigned to SYSOUT in 
the time sharing mode. Errors that result in aborts cause error messages to be 
issued at the terminal. 


Input and output files will be assigned to the terminal under the following 
conditions at the time the file is opened: 


e If the file name is SYSIN or SYSPRINT and is not specified in the AFT. 
e If the file name descriptor, FLNAME, in the FIB macro is null. 
e If the file name is ** , 


When the Open macro assigns a file to the terminal, a major status 9 and 
substatus 6 are specified in the file status word, FSCODE, of the FIB. For an 
input file assigned to the terminal, the Get Next macro causes a "?" and the 
file code characters to be issued to the terminal as "?FC". In response, the 
terminal user enters a string of ASCII characters followed by a carriage return. 
This string of characters is moved to the process area designated as PROAR in 
the FIB macro. An end-of-file status is returned to the user program upon 
receipt of a single carriage return character or the control-shift-L character 
Coctal 034). 


When a. Put macro is issued by the user program to an output file assigned 
to the terminal, an ASCII string of characters is expected in the process area. 
This ASCII string will be output to the terminal. The size of the string moved 
from the process area is one of the following: 


e Record size from word O of the Variable Information Block (VIB). 
e Record size word (RSZWRD) from FIB macro. 
® Maximum record size CRSZ) from FIB macro. 
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After the output string is sent to the terminal, the automatic slew of a 
line occurs. Any additional line control required must be included in the 
character counts. 


The following example in Figure 9-1 illustrates the creation of an H* file 
from a batch activity for execution in the time sharing environment. Note that, 
with the exception of the changes indicated in the figure, the time sharing job 
is the same as the batch job. 


1 8 16 
$ IDENT Account#, Name 
$ LOWLOAD 36 
$ OPTION SAVE/TSSHSTAR,NOGO,NOSETU 
$ GMAP NDECK,ELSF 
$ LIMITS , 30K 
LODM -DMAC 


SYMREF ~DSEQ,.DVLRI,.DVLPO 
SYMDEF TSSUF | 


LODM -G3TSM 
-SSDRL 
TSSUF NULL 
DRL DEFIL TEMP FILE FOR ABORT DUMP COPTIONL) 
ZERO ARGS,STAT 
* 
DOPEN FIBLS,FIBLST,(FIBA,FIBIN,SYM,.DVLRI,MODE, IN) 
DOPEN FIBLS,FIBLST,(FIBA,FIBOT,SYM,.DVLPO) 
* 
MLR >» 040 | 
ADSC9 MSG1,0,52 
ADSC9 OTPROC+1,0,52 
DLPUT FIBOT,VIB 
* 
MLR 77040 
ADSCY MSG2,0,36 
ADSCI OTPROC+1,0,52 
DL PUT FIBOT,VIB 
* 
MLR »,040 
ADSCI MSG3,0,44 
ADSC9 OTPROC+1,0,52 
DLPUT FIBOT,VIB 
* . 
LOOP NULL . 
MLR 72040 
ADSC9 0,0,0 CLEAR INPUT PROCESS AREA 
ADSC9 INPROC,0,56 
* 
DLGXT FIBIN, VIB,RETRN 
* 
CMPC 
ADSC9 INPROC,0,6 
ADSC9 ENDFLG,0,6 
TZE DONE 
* 
MLR 77040 
ADSCI INPROC,0,52 MOVE INPUT DATA TO 
ADSC9 OTPROC4+1,0,52 OUTPUT AREA 
* 


Figure 9-1. Batch Activity To Create H* File For Execution In 
Time Sharing Environment . . 
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DONE 


FIBLST 
VIB 
STAT 
ARGS 


MSG1 
MSG2 
MSG3 


ENDMSG 
INPROC 


OTPROC 
ENDFLG 
FIBIN 
FIBOT 
INFC 
OTFC 


SYSIN 
SYSPRT 


PGA 


Figure 9-1 (cont). 


Commands commonly used to load an 


BSS 
BSS 
BSS 
UASCI 
OcT 
OcT 
UASCI 
UASCI 
UASCI 
UASCI 
UASCI 
UASCI 
UASCI 
UASCI 
OCT 
UASCI 
UASCI 
UASCI 
FIBMAC 
ETC 
FIBMAC 
ETC 
ADSC9 
ADSC9 
UASCI 
UASCI 
END 
EXECUTE 
PRMFL 
ENDJOB 


16 


FIBOT,VIB 
LOOP 


77040 
ENDMSG,0,36 
OTPROC+1,0,52 
FIBOT,VIB 


FIBLS,FIBLST,(FIBA,FIBIN) 
FIGLS,FIBLST,(FIBA,FIBOT) 


RETURN (GEFINI...) 

ABORT (GEBORT...) 

3 

2 

2 

2,ABRT 

5 

015007007007 CR,BELL,BELL,BELL 


9,TSS/UFAS - ENTER DATA FOLLOWING ‘IN? 
3," PROMPT. 

9,PROGRAM WILL VERIFY RECEIPT OF DATA. 
9,T0 TERMINATE, ENTER 'xxxEND' OR HIT 
2,RETURN. 

9,*x* END OF TSS/UFAS EXERCISE xxx 

9, 

a, 

015007007007 CR,BELL,BELL,BELL 
9, 

4, 

2,**kEND 


IN,GFRC,CNBUF,2,RSZ,56,C1SZ,1280,PROAR,INPROC,0O, 


MEDCOD,6,FLNAME,INFC,0O] 


OT, GFRC,CNBUF,2,RSZ,56,CISZ,1280,PROAR,0TPROC,O, 


MEDCOD,6,FLNAME, OTFC,0] 
SYSIN,0,5 

SYSPRT,0,8 

2,SYSIN 

2,SYSPRINT 


DUMP 
H*,W,R,UFAS/DAP/DAPHSTAR 


Time Sharing Environment 


environment include: 
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LODT command 


LODX command 


FORTRAN run command FRN 


H* file for execution 


Batch Activity To Create Hx File For Execution In 


in a time sharing 
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SECTION X 


EXCEPTION AND ERROR CONDITIONS 


The exception and error conditions defined in this section comprise the 
exception condition major status and substatus codes with corresponding messages 
where applicable, Label processing messages, and console messages. 


EXCEPTION CONDITIONS AND STATUS CODES 


For every exception condition, as well as successful completion, there is a. 
corresponding major status and substatus code in a two-byte ASCII field. The 
major status code is either 0, 1, 2, 3, 5, 8, 9 or F ASCII and identifies the 
type of error. The substatus code, which is also expressed in ASCII (except the 
substatus for major status 8 which is in binary), identifies the specific error. 
If the user indicates in the FIB that a file status code field pointer is 
provided, then that field is initialized each time with the appropriate value 
Cincluding Ox for successful). 


UFAS always returns control to the user if appropriate exits are provided 
and only aborts if instructed to do so, or if no exits are provided. When a 
function is successfully completed, UFAS makes a normal return. If an error 
with major status 1, 2, 5, or F is detected, UFAS takes an alternate exit. For 
errors with major status 1 or 2 (when the alternate exit is not specified), and 
3 or 9, transfer is made to the file name error exit, if one is provided, or to 
the processing mode error exit. If no file name or processing mode error exit 
is specified a message is issued and the activity is aborted. When an-error 
with major status 8 is detected, an appropriate error message is issued before 
transfer is attempted to the error exit. 


When control is transferred to a user error procedure as a result of an 
error with major status 1, 2, 3, or 9, UFAS inhibits file processing until the 
user responds by indicating the action to be taken. If transfer is caused by an 
error with major status 8, the. file is permanently inhibited. In both 
instances, upon termination of the user error procedure, the user is required to 
return control to UFAS via macro UFSRET, indicating what action is to be taken; 
that is, if recovery should be attempted, the function that was interrupted 
should be terminated and control returned, or the activity aborted. 
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The action to be taken is indicated by one of the following responses and 
is effected by changing only the substatus code field. The major status code 
field may remain unchanged. 


Major Status Substatus Field 

Field | Response Action 

1 or 2 R Return to user taking normal exit. 
S or P - Abort 
(field 
unchanged) Return to user taking normal exit. 

3 or 9 R Return to user taking normal exit. 
P Process record or block as normal. 
Ss Skip the block. 
(field 
unchanged) Abort. 

8 R Return to user taking normal exit. 
P Abort 
) , Abort 
(field 
unchanged) Abort 


All files may continue to be referenced except those that are inhibited. 
Calls to inhibited files, except to close the files, cause the error procedure 
to be reiterated and an additional message to be issued indicating the status of 
the file. 


Termination of an activity may occur any time the user program has control. 
If the Wrapup function is needed to close open files, this may be accomplished 
with the DWRAP macro or the system's normal termination vector (.CWRAP). 
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Major Status 
Code 


0 
0 


Substatus 
Code 


0 
2 


Meaning: 


Meaning: 


Meaning: 


Meaning: 


Meaning: 


Normal termination. 


Duplicate alternate keys Successful 
where duplicate keys are Completion 
allowed for this file (not 

applicable to ISP files). 


On read, two successive 
records contain the same 
alternate key values for a. 
given key of reference. On 
write or rewrite, the re- 
cord just written creates 

a duplicate key value for 
at least one alternate key. 


An end-of-file condition Logical 
was detected. EOF 


Ascending sequence require- 
ments were violated on a write 
or the key value was changed 
between a successful read and 
next rewrite. 


An attempt was made to write 


or rewrite a record that Invalid 
would generate a duplicate ey 
key. This condition occurs Condition 


for prime keys and alternate 
keys only when duplicate 
keys are not allowed. 


No record found. This con- 
dition is also invoked for 
all functions, except write 
when a boundary violation 
occurs. 


An attempt was made to write 

beyond the Limits of a file 

space. 

Reserved. 

An unrecognizable hardware 

errors; i.@€., one that is not Input/Output 
defined by code 9x. Processing 


MME GEMORE denial on Linked 
mass storage file. 


No User Label was found. This 


condition is invoked by the ANS, UFF, or 
Read User Label Record IBM User 
function. A UFSRET CUSERLB) Label 

must be issued to return processing 
to UFAS. 
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' 
AN 


Major Status Substatus 
Code Code 


8 00 Message: IC&I STACK OVERFLOW - TOO MANY 
~ NESTED CALLS ON FILE xx 


Meaning: Too-many outstanding Label or error 
- exits caused internal stack overflow. 


8 01 Message: 1/0 ATTEMPTED ON UNOPENED FILE xx 


Meaning: Input/output was attempted on an un- 
opened file. 


8 02 Message: 1/0 ATTEMPTED WHILE A RETURN FROM AN 
ERROR PROCEDURE OR LABEL EXIT IS OUT- 
STANDING ON FILE xx 


Meaning: Control was transferred at the user 
Label or error exit Level; access 
of the file is no longer possible 
until control is returned to UFAS 
via the UFSRET macro. 


8 03 Message: ANSI BLOCK SEQUENCE INDICATOR ERROR 
ON FILE xx 


Meaning: Block sequence indicator in block 
control word does not match 
internal block serial counter. 


8 04 Message: REQUIRED VIB POINTER IS MISSING ON 
CALL TO FILE xx 


Meaning: Variable information block was not 
specified for a required function. 


8 05 Message: INVALID SPANNED/PARTITIONED RECORD 
SEGMENT ENCOUNTERED ON FILE xx 


Meaning: Record segments are out of order in 
a spanned/partitioned file. 


8 06 Message: INPUT RECORD SIZE EXCEEDS FIB RECORD 
SIZE ON FILE xx 


Meaning: Actual record size is larger than the 
maximum size specified in the FIB. 


8 07 Message: RETURN FROM USER LABEL EXIT OR 
ERROR PROCEDURE IS NOT IN CORRECT POP-UP 
SEQUENCE FOR FILE xx 


Meaning: Return made by a user procedure from 
nested Label exits was not in reverse 
sequence to the order the procedures 
were called; that is, the Last 
procedure to gain control should be the 
first to return control. 


8 08 Message: UNRECOGNIZABLE LABEL DETECTED 
ON FILE xx 


Meaning: Invalid Label was used on file. 


7780 10-4 DC89-O3A 


Major Status 
Code 


8 


7/80 


Substatus 
Code 


09 


10 


11 


12 


13 


14 


15 


16 


17 


18 


Message: 


Meaning: 
Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


RETENTION PERIOD DESCRIPTOR IN 
FIB IS INVALID FOR FILE xx 


Incorrect retention period was specified. 
BLOCK SERIAL ERROR READING FILE xx 


Block serial number in block control 
word does not match internal block 
serial counter. 


INVALID TAPE MARK ON FILE xx 


Non-standard end-of-file mark was 
encountered in data file. 


ERROR WHILE SKIPPING CHECKPOINT 
RECORDS ON FILE xx 


Partial checkpoint delimiter (zero 
tape mark) was found in data file. 


BLOCK LENGTH ERROR READING FILE xx 


Logical block size as calculated does 
not match the size specified in the block 
control word. 


ON RETURN FROM USER ERROR PROCEDURE THE 
MINOR STATUS CODE RESPONSE IS INVALID FOR 
FILE xx 


User response was invalid for the error 
type detected. 


UNABLE TO RECOGNIZE I0 STATUS ON FILE xx 
Unexpected major status or substatus was 


encountered in I0S status words. See the 
File Management Supervisor manual for 


status explanation. 


CHECK ALERT WHILE READING MASS STORE 
FILE xx 


Check alert status was encountered 
when reading mass storage file. 


BLANK TAPE READING FILE xx 


No bits were detected during a read 
function. 


READ ATTEMPTED AFTER END OF FILE 
ON FILE xx 


Get Next function is not allowed after 


an EOF condition until the current record 
pointer is re-established. 


10-5 DC89-O3A 


Major Status Substatus 
Code Code 


8 19 Message: IMPROPER MEDIA CODE VALUE SPECIFIED 
FOR FILE xx 


Meaning: Media code was not defined or 
implemented. 


7/80 10-5.1 DC89-03A 


Major Status Substatus 


Code Code 
8 20 Message: CONTROL CARD FROM .U FILE HAS 
INVALID/MISSING DELIMITER xx 
Meaning: Delimiter is missing on control card. 
8 21 Message: ATTEMPT MADE TO OPEN THE ALREADY OPEN 
FILE xx 
Meaning: An attempt was made to open an open 
file before it was closed. 
8 22 Message: CANNOT SPECIFY BLOCK SERIAL INDICATORS 
WHEN MODE IS OUTPUT OR EXTENDED FOR FILE xx 
Meaning: UFAS can only read, not build, ANSI tape 
files containing block sequence indicators. 
8 23 Message: MIXED DEVICE TYPES ASSIGNED ON FILE xx 
Meaning: More than one device was assigned to file, 
but not of the same type. 
8 24 Message: DEVICE ILLEGAL OR MISSING ON FILE xx 
Meaning: Device code is not known to operating 
system. 
If ISP file, can be one of the following: 
@e Device or allocation is not random. 
e Number of additional data file codes 
in FIB file code list does not match 
the number in the data file utiliza- 
tion record. 
@e Device is not assigned for index file. 
8 25 Message: DEVICE=TYPE/FILE~CONTROL CONFLICT ON 


FILE xx 


Meaning: Abort was caused by one of the following 
conditions: 


@e User assigned 7-track tape and format is 
not GFRC. 


e User assigned SYSOUT, but format is not 
GFRC. 


e User assigned tape device, but file 
organization is not sequential. 


@e User assigned random device, but file 
format is not UFF or ISP. 


@e User assigned Linked mass storage device, 
but file format is not GFRC. 


e User assigned Linked mass storage device, 


but fixed-length records were specified 
or BSN was not specified. 


10-6 DC89-03 


Major Status 


7/80 


Code 


Substatus 
Code 


26 


27 


28 


29 


30 


31 


32 


Message: 


Meaning: 
Message: 
Meaning: 
Message: 


Meaning: 


Message: 


Meaning: 


Message: 
Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


e If ISP file, the file assigned as 
the index or data file is not a valid 
ISP index or data file. 


e File format is GFRC, but file 
organization is not sequential. 


e Code set is ASCII, but directed 
to a dedicated BCD printer. 


VARIABLE LENGTH RECORDS OR 
9-BIT EXT CODE SET NOT SPECIFIED FOR 
MEDIA CODE 6 FILE xx 


Media code 6 GFRC file required 
VLR specification or 9=-bit external code. 


DATA BASE KEY (HIGH OR LOW) HAS BEEN 
CHANGED FOR FILE xx 


Data base key specified by user 
does not match key in the attribute block. 


KEY OUTSIDE OF RECORD AREA FOR DATA 
FILE xx 


Improper positioning of key. 


Every record in an ISP file must be 
Large enough to accommodate the key. 
The smallest record in the file must 
contain at Least n characters; i.e., 


n = Key size + Key offset 


PAGE MODE DOES NOT AGREE WITH INPUT 
FILE xx 


Control interval format of the input 
file does not agree with description 
specified for I-D-S/II. 


AREA NAME DOES NOT AGREE WITH 
INPUT FILE xx 


Area name of input file does not agree 
with that specified for 1-D-S/II. 


INVALID RECORD SIZE ON FILE xx 


Record size does not match record 
size in FIB. 


If ISP file, record size in the record 
size word is not large enough to con- 
tain the entire key. 


ERROR ENCOUNTERED WHILE ATTEMPTING 
TO BACKSPACE FILE xx 


Unrecognizable I/0 error was encountered 
while attempting to backspace the file. 


10-7 DC89-O3A 


Major Status Substatus 


Code Code 
8 33 Message: CONTROL CARD FROM .U FILE HAS 


UNRECOGNIZABLE KEYWORD xx 


Meaning: Unrecognizable keyword was specified 
- on control card. 


7/80 10-7.1 DC89-03A 


Major Status 
Code 


8 


Substatus 


Code 


34 


35 


36 


37 


38 


39 


40 


41 


42 


43 


44 


Message: 


“Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 
Message: 


Meaning: 


Message: 
Meaning: 


Message: 


Meaning: 


CLOSE ATTEMPTED ON UNOPENED FILE xx 


-Closing of an unopened file was attempted. 


PROCESS AREA POINTER IN FIB' MISSING ON 
FILE xx 


FIB pointer was not specified on file. 


DBK'S/CALC-HDR OR LINES/PAGE DOES NOT 
AGREE WITH INPUT FILE xx 


Incompatibility of the I-D-S/II descrip- 
tion with that of the input file. 


CHECKPOINT FILE NOT OPEN AS OUTPUT 


Checkpoint file was not open in output 
processing mode. 


CHECKPOINT FILE ASSIGNED TO ILLEGAL 
PERIPHERAL 


Checkpoint file must be random, Linked 
mass storage, or magnetic tape. 


TWO SUCCESSIVE WRITE ERRORS ON CHECKPOINT, 
CHECK FILE SIZE xx 


Two consecutive write errors were en 
countered in file. 


CHECKPOINT FILE NOT ALLOCATED 


Checkpoints were requested when the file 
was opened, but the file was not 
allocated/open when the dump was requested. 


FILE CODE FOR INDEX NOT SPECIFIED FOR IN- 
DEXED FILE xx 


File code missing for index of indexed 
file. 


INDEXED FILE'S INDEX IS NOT VALID FOR 
FILE xx 


The date or time of day on the allocated 
index file does not match the date or 
time of day on the allocated data file, 
or one or more occurrences of alternate 
key types did not exist when the key 
file was built. 


VARIABLE LENGTH RECORDS OR 6-BIT EXT CODE 
SET REQUIRED FOR MEDIA CODE 3 FILE xx 


User did not specify VLR or 6-bit external 
code for media code 3. 


FILE FORMAT NOT UFF ON FILE xx 


File allocated is not an UFF file. 


10-8 DC89-03 


Major Status Substatus 


Code Code 
8 45 Message: DIRECTORY IN ERROR ON FILE xx 
Meaning: User specified wrong directory in 
open FIB List. 
8 46 Message: USER HIGH PAGE IS INVALID FOR FILE xx 
Meaning: High data base key does not agree 
with that of input file. 
8 47 Message: LOW PAGE IN AREA DOES NOT AGREE WITH 
INPUT FILE xx 
Meaning: Low data base key does not agree with 
that of input file. 
8 48 Message: BUFFER POOL TABLE OVERFLOW 
Meaning: An attempt was made to record 
more than 20 entries in the 
buffer pool table. 
8 49 Message: OPEN EXTEND IS ILLEGAL ON UNLABELED 
FILE xx 
Meaning: Extend mode is not allowed for unlabeled 
file. 
8 50 Message: PROCESS MODE = EXTEND IS ILLEGAL ON A 
GFRC CREATED FILE xx 
Meaning: Extend mode is not allowed for GFRC file 
not created by UFAS. 
8 51 Message: EOF MARK ENCOUNTERED INSTEAD OF INPUT 
LABEL ON FILE xx 
Meaning: Required header label is missing. 
8 52 Message: INTERNAL ERROR —- CLABEL PROCESSING) 
FOR FILE xx 
Meaning: Caused by one of the following: 
@ Unexpected hardware error was 
encountered. 
e Userlabel C(CUVL) request is invalid for 
IBM files. 
e Requested function (DLRLB or DLWLB) 
is invalid for this userlabel exit. 
@e User Label record indentification is 
invalid. Must be UVL,UHL or UTL 
and defined as UASCI. 
e An input file contains an invalid 
Label structure. 
8 53 Message: ILLEGAL "PERCENT FILL' SPECIFIED FOR 


FILE xx 


Meaning: Specified percent fill is larger than 
the control interval. 


7/80 10-9 DC89-O3A 


Major Status Substatus 
Code Code 


8 54 Message: LABEL EXIT PROCESSING RECURSION LIMIT 
| EXCEEDED ON FILE xx 


Meaning: More than 10 outstanding label exits 
were specified. 


8 55 Message: VARIABLE LENGTH RECORDS OR 9-BIT EXT 
CODE SET NOT SPECIFIED FOR MEDIA CODE 
7 FILE xx 


Meaning: Media code 7 GFRC file requires VLR 
specification or 9~-bit external code. 


8 56 Message: AN INVALID KEY CONDITION, REJECTED BY 
USER, WAS DETECTED ON FILE xx 


Meaning: Abort was caused by one of the following 
conditions: 


~@ On invalid key condition, user did 
not provide an alternate exit or an 
error procedure. 


e User returned to UFAS from an error 
procedure with an invalid response 
in the substatus field. 


8 57 Message: RECORD KEY EXCEEDS FILE SPACE LIMITS 
ON FILE xx 


Meaning: Key supplied by user was either negative 
or beyond the Limits of the file. This 
error will occur in DMIV-TP environment 
when Local or general inventoried over- 
flow is not available. Since TP does not 
update the attribute block, general over- 
flow is not used. 


8 58 Message: FIB HAS NO USER ERROR PROCEDURE POINTER 
FOR FILENAME OR PROCESSING MODE FOR 
FILE xx 


Meaning: User failed to provide error procedure 
for file name or processing mode. 


8 59 Message: NO UPDATE PROTECTION SPECIFIED FOR 
RANDOM FILE xx 


Meaning: Within a given run unit, when any 
permanent random file has update 
protection, all permanent random 
files must have update protection. 


8 60 Message: FILE SPACE EXHAUSTED; GEMORE REQUEST 
DENIED ON FILE xx 


Meaning: File space for the specified file was 
increased up to the maximum size given 
when the file was created. 


8 61 Message: CANNOT SPECIFY PARTITIONED RECORDS 


JOINTLY WITH MEDIA CODE 3 or 7 OR WITH 
FIXED LENGTH RECORDS ON FILE xx 


10-10 DC89-03 


Major Status 


7/80 


Code 


Substatus 
Code 


62 


63 


64 


65 


66 


67 


68 


69 


70 


71 


72 


73 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 
Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 
Meaning: 


Message: 


Meaning: 


Message: 
Meaning: 


Message: 


Meaning: 


Message: 


Media code 3 or 7 GFRC file requires 
VLR specification. 


READ NEXT ATTEMPTED AFTER INV KEY 
CONDITION ON FILE xx 


Get Next function is not allowed after an 
invalid key condition until the current 
record pointer is re-established. 


ILLEGAL FILE PROTECTION OPTION 
SPECIFIED FOR FILE xx 


FMS detected an improper file protection 
option while a before-image was being taken 


UNEXPECTED FILE MARK ON FILE xx 


Unexpected file mark was encountered 
during processing of the file. 


TOO MANY PAGES LOCKED ON FILE xx 
Number of available buffers is exhausted. 


END OF TAPE ENCOUNTERED ON 
UNLABELED OUTPUT FILE xx 


An end of tape was detected on an 
unlabeled file. 


REQUEST FOR MORE MEMORY DENIED BY 
GEMORE - FILE xx 


Work space allocated to UFAS for internal 
tables and buffers has been depleted. 


NO BUFFERS OR TOO MANY BUFFERS 
ASSIGNED FOR FILE xx 


The number of buffers assigned is outside 
the acceptable Limits. 


NO RECORD SIZE SPECIFIED FOR FILE xx 
Record size was not specified. 


RECORD SIZE IS GREATER THAN PAGE 
SIZE ON FILE xx 


A single record and the control information 
do not fit on the control interval. 


INVALID FILE FORMAT SPECIFIED FOR FILE xx 


File format specified for file is invalid. 


INVALID FILE ORGANIZATION SPECIFIED 
FOR FILE xx 


File organization specified for file 
is invalid. 


INVALID ACCESS MODE SPECIFIED FOR 
FILE xx 


10-11 DC89-O3A 


Major Status 
Code | 


7/80 


Substatus 


Code 


74 


75 


76 


77 


78 


79 


81 


82 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: | 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Access mode specified for file is 
invalid. 


INVALID PROCESSING MODE SPECIFIED 
FOR FILE xx 


File processing mode specified for 
file is invalid. 


PAGE SIZE IN FIB NOT EQUAL TO FMS 
PAGE SIZE ON FILE xx 


Control interval (page) size in the 
FIB is not the same as the control 
interval size specified for FMS when 
the file was created. 


OPEN OUTPUT WITH FMS PROTECTION REQUIRES 
"LOAD* ALLOCATION ON FILE xx 


FMS protection is not allowed during 
creation of a file. Override by using load 
permissions on the $ PRMFL card. 


OUTPUT RECORD SIZE EXCEEDS MAX SPECIFIED 
ON FILE xx 


Record size specified for Put macro 
(VIB) is greater than maximum record 
size specified in the FIB. 


MUST RE-ESTABLISH CURRENT RECORD 
POINTER AFTER CHECKPOINT FILE xx 


When files with access/monitor 
protection are present and checkpoint 
is performed, the current record 
pointer is cleared. This pointer must 
be re-established before another 
sequential Get function is performed. 


AN END OF FILE CONDITION, REJECTED 
BY USER, WAS DETECTED ON FILE xx 


Abort was caused by one of the following 
conditions: 


@ On end~-of-file condition, user did 
not provide an alternate exit or 
an error procedure. 


e User returned to UFAS from an error 
procedure with an invalid response 
in the substatus field. 


NO PAGE SIZE OR INVALID PAGE SIZE 
SPECIFIED FOR FILE xx 


Control interval size specified is either 
zero or greater than 4096 words. 


INVALID RECORD TYPE SPECIFIED FOR FILE xx 


10-12 DC89-O3A 


Major Status 
Code 


Substatus 
Code 


84 


85 


86 


87 


88 


89 


90 


91 


92 


Meaning: 


Message: 
Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 
Meaning: 
Message: 


Meaning: 


Message: 


Type of record (fixed or variable) speci- 
fied does not match the type specified in 
the tape label CHDR2). 


DENSITY ERROR ON FILE xx 
Incorrect density was specified. 


OPERATOR ABORTED HEADER/TRAILER' LABEL 
ERROR MESSAGE ON FILE xx 


Operator responded with the abort option 
to a console message. 


POSITIONING REQUIRES FUNCTION CODE IN VIB 
FOR FILE xx 


File positioning requires a non-zero 
content in word 1 of VIB. 


CURRENT RECORD POINTER UNDEFINED xx 


A Rewrite or Delete function must be pre- 
ceded by a Read Next function in the se- 
quential access mode. 


AN ATTEMPT TO REWRITE A RECORD WITH 
DIFFERENT RECORD SIZE OCCURRED ON 
FILE xx 


Record size provided for the Rewrite 
function, either in the FIB or VIB, must 
be equal to the record size of the record 
being replaced. 


DATA FILE FILE-CODES NOT GIVEN IN SAME 
ORDER AS AT FILE BUILD FOR FILE xx 


Sequence of data file, file codes is dif- 
ferent from that specified when file was 
created. 


If ISP file, the page read was not the one 
requested because file codes were out of 
order, or data or index file pages were 
destroyed. 


INVALID KEY TYPE SPECIFIED FOR FILE xx 
Incorrect key was specified for file. 
ILLEGAL CALL ON FILE xx 


User tried to execute a function that is 
not allowed by the specified processing 
mode and access mode, or an error was found 
in the catalog file description when UFAS 
tried to put the users filename in the 

Time Sharing Available File Table. 


OPERATOR RESPONDED "E" TO LABEL ERROR 
MESSAGE ON FILE xx 


10-13 DC89-03 


Major Status 
Code | 


Substatus 


Code 


93 


94 


95 


96 


97 


98 


99 


100 


101 


102 


103 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 
Meaning: 
‘Message: 
Meaning: 
Message: 
Meaning: 
Message: 


Meaning: 


Message: 


Meaning: 
Message: 
Meaning: 
Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Operator forced an end-of-file condition on 
the input file. 


LATERAL PARITY ON TAPE, FILE xx 


Incorrect parity was detected across input 
tape file. 


LONGITUDINAL PARITY ON TAPE, FILE xx 


Incorrect parity was detected along length 
of tape. 


ERROR ON CHECKPOINT FILE 


Checkpoint was attempted while a courtesy 
call was outstanding. 


NO ARGUMENT OR INVALID ARGUMENT IN FIB LIST 
FOR FILE xx 


Either the FIB pointer or directory pointer 
is missing in the FIB List. 


INTERNAL OR EXTERNAL DATA TYPE IS INVALID 
FOR FILE xx 


Invalid code value was specified for char- 
acter set. 


THE BEGINNING OF VOLUME WAS ENCOUNTERED ON 
FILE xx 


Beginning of a volume was reached during 
backward file positioning. 


INVALID INPUT ARGUMENT FOR FILE xx 


One of the VIB input arguments is incor- 
rect. 


ILLEGAL COMBINATION OF CALLS FOR FILE xx 
Combination of primitive calls is not ac- 
ceptable (for example, forward spacing by 


QO record twice for an indexed sequential). 


INVALID KEY OFFSET AND KEY LENGTH GIVEN FOR 
ISP FILE xx 


Values given in the key list entry (key 
pointer in the FIB) do not match those in 
the data file utilization record. 


UNABLE TO LOCATE REQUIRED KEY IN INDEX 
FILE xx 


Index file was destroyed. File must be re- 
built by unloading and loading the file 
with the ISP utility XUTIL. 

MISPLACED 1ERI TRAILER LABEL ON FILE xx 


End-of-reel indicator was misplaced. 


10-14 DC89-03 


Major Status Substatus 


Code Code 
8 104 Message: DATA BLOCK HAS LABEL PARITY ON FILE xx 
Meaning: Parity error occurred when Label was read. 
8 105 Message: MAXIMUM REC SIZE IS LESS THAN ACTUAL REC 
SIZE ON FILE xx 
Meaning: Incorrect record size was specified. 
8 106 Message: ACT REC SZ IS LESS THAN USER SPECIFIED SZ 
ON FLR FILE xx 
Meaning: Incorrect fixed-length record size was 
specified. 
8 107 Message: LAST REC IN CURR BLK IS LESS THAN FIXED 
SIZE ON FILE xx 
Meaning: Last record is shorter than the defined 
fixed-length record size. 
8 108 Message: NO ALTERNATE KEY DESCRIPTIONS PROVIDED IN 
FIB (SEE KEY PTR) ON FILE xx 
Meaning: Alternate key is missing in key description 
List. 
8 109 Message: INVALID MAXIMUM RECORD SIZE GIVEN FOR ISP 
FILE xx 
Meaning: Record size given in FIB exceeds the maxi- 
mum size of the data file utilization re- 
cord specified when the file was created. 
The value of the record size in the FIB 
must be less or equal to the value speci- 
fied in the utilization record. 
8 110 Message: BANNER CHARS NOT ALLOWED WITH H2000 MOD4 
FORMAT ON FILE xx 
Meaning: Banner characters are allowed only with the 
H2000 Mod1 file format. 
8 111 Message: INVALID FILE SEQUENCE NUMBER SPECIFIED IN 
FIB FOR FILE xx 
Meaning: File sequence number specified in FIB was 
incorrect. 
8 113 Message: ILLEGAL BANNER CHAR FOR FILE xx 
Meaning: Banner character provided by the user is 
not within the legal range. 
8 114 Message: TOO FEW RECORDS IN CI CAUSE TOO MANY INDEX 


LEVELS; INCREASE CI SIZE FOR FILE xx 


Meaning: Key size is almost as large as control in- 
terval size of index file, or the control 
interval size is too small to contain two 
alternate keys for a UFF Indexed or 
Integrated file, thus creating a control 
interval table overflow. Increase control 
interval size. 
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Major Status 
Code 


8 


7/780 


Substatus 
Code 


116 


118 


120 


121 


123 


124 


125 


Message: 
Meaning: 
Message: 
Meaning: 
Message: 
Meaning: 
Message: 
Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 
Message: 
Meaning: 
Message: 


Meaning: 


Message: 


Meaning: 


ILLEGAL ATTEMPT.TO OPEN IDS~2 CREATED 
FILE xx : . 


Files created through I-D-S/II can only 
be accessed through I-D-S/II. No other 
files can be accessed by I-D-S/II. 


NO CURRENT CI FOR FILE xx 


UFAS attempted a function on a non~existent 
current control interval. 


CI NOT LOCKED FOR FILE xx 


UFAS attempted a function on a Locked con- 
trol interval, but the control interval was 
not locked. 


LOCK TABLE FULL FILE xx 


UFAS attempted to lock more pages than the 
current table space allowed. 


LABEL PROCESSING NOT A TSS FEATURE 

An attempt was made to open a labeled file 
in the time sharing environment. Label 
processing is not available in the time 
sharing environment. 


THIS FILE FORMAT NOT SUPPORTED BY TSS UFAS 


An attempt was made to open a file with a 
format not supported in the time sharing 
environment. 


FILE CODE LIST NOT PERMISSIBLE IN TSS UFAS 


A multi-volume file cannot be specified in 
the time sharing environment. 


INVALID ALTKEY DESCRIP OR INDEX-ID= 
aaaaaabbbbbb ON FILE xx 


The current access of an indexed or 


integrated file with an alternate key 


used a key description (or index-id) that 


was not provided at the time the file was 
built. The field aaaaaabbbbbb represents 
either the 12-character alternate key 
description (aaaaaa = offset, 

bbbbbb = Length) or the 3 character 
I-D-S/II index-id. 


RECRD TO DEL OR REWR NOT FOUND IN ALT KEY 
INDEX FILE xx 


An attempt was made to delete or modify a 
non~existing alternate key value. 


10-16 . DC89-03A 


8 126 Message: GENERAL INVENTORIED OVERFLOW SPACE 
EXHAUSTED FOR FILE xx 


Meaning: An attempt was made under TP to update an 
indexed file whose inventoried overflow 
was exhausted. This condition occurs 
when insufficient or no inventory over- 
flow (local or general) was defined when 
the file was built. Rebuild the file using 
the LOVI and GOVI options. 
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Major Status 


7/80 


Code 


8 


Substatus 
Code 


127 


128 


129 


130 


131 


132 


133 


134 


135 


136 


137 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Message: 


Meaning: 


Measage: 


Meaning: 


Message: 


Meaning: 


FILE SIZE TOO SMALL FOR ATTRIBUTES +1 CI 
ON FILE xx : 


Not enough file space was provided for the 
file attributes and at Least one control 
interval. 


FILE CONCATENATION TAPE ACCESS DENIED 


Unable to obtain allocation of the next re- 
quired tape file in concatenation sequence. 


FILE CONCATENATION NON-BUSY PERMFL ACCESS 
DENIED 


Unable to obtain allocation of the next re- 
quired PRMFL in concatenation sequence. 


INVALID USER LABEL EXIT PARAMETERS 
ANS, UFF or IBM User Label processer 
have been requested with incorrect 
(FIBMAC) parameters. 

I/O ERROR ON We FILE 


An unrecoverable error has occured while 
attempting to read the Wx file. 


EXCEEDED 30 FILES IN We FILE 

The maximum allowable number of files that 
can be described in the Wx file has been 
exceeded. 


ERRORS IN We PARAMETERS 


Format or syntax errors were discovered in 
processing the Wx file parameters. 


1/0 ERROR ON WRITE TO CONSOLE 

An 1/0 error occurred on the system console 
in processing a T* parameter card contained 
in the We file. 

GEMORE ERROR ON "NULL" FILE (RERUN) 


A GEMORE denial occurred while attempting 
to allocate a null file during a rerun. 


ERROR WRITING CHECKPOINT 


A hardware error occurred while attempting 
to write a checkpoint record to a data tape. 


ALLOCATED OUTPUT FILE NOT IN RERUN LIST 
During rerun, output files have been 


allocated that were not specified in an OUT 
parameter. 


10-17 DC89-O3A 


8 138 Message: NO USER ADDRESS GIVEN FOR EXTERNAL LABELS 
Meaning: The L option was specified in the Wx file 

without the address of the procedure to 

process Labels passed to UFAS. Use the 
DXLABL macro to pass the address to UFAS. 

8 139 Message: END OF TAPE BEFORE REACHING BLOCK COUNT 


Meaning: The tape volume is too short to hold the 
specified number of blocks. 


8 140 Message: INTERNAL UFAS ERROR 


Meaning: UFAS has encountered an internal error. 
No recovery is possible. 


9 0 Meaning: Reserved. 

9 1 Block serial number error. 

9 2 Block length error on read. File 
Processing . 

9 3 Blank tape on read. Conditions 

9 4 Rewrite record size error. 

9 5 VIB or record size word error 

9 6 File Mark found on H2000 Input File, or 


File assigned to a terminal during special 
Time Sharing testing. 


9 0 Incorrect I/0 status after Backspace command. 
9 8 Misplaced 1ERI Trailer Label found. 
9 9 Unidentified record found on H2000 tape. 
9 A Record Length < maximum Length and not 
VLR file. 
9 B Record length > maximum record Length. 
9 C Incorrect 1/0 status after attempted WRITE. 
9 D Actual record Length not equal to record 


Length for FIXED LENGTH FILE. 

F 0 Meaning: An FO memory fault may take place during 
DINFO execution due to insufficient table 
area size. 


F 1 Meaning: Invalid function code during DINFO 
execution. 


F 2 Meaning: File is not Labeled and the user asked 
for the contents of FACT section three. 


7/80 10-17.1 DC89-O3A 


LABEL PROCESSING MESSAGES 


The Label processing messages provide a log of the sequence of files 


processed and are_- printed 
single-file multi-volume 


on 
is proces 


Message 


OPERATOR STARTED WITH 
HXXXXX FOR FILE CODE YY REEL 
SEQ #QQQ FILE SEQ #SSS OUTPUT 


OPERATOR CONTINUED WITH 
#XXXXX FOR FILE CODE YY 
SEQ #QQQ FILE SEQ #SSS 


REEL 


INPUT STARTED WITH 
HXXXXX FOR FILE YY REEL 
#QQQ FILE SEQ #SSS 


SEQ 


INPUT CONTINUED WITH 
HXXXXX FOR FILE CODE YY 
SEQ #QQQ FILE SEQ #SSS 


REEL 


CONSOLE MESSAGES 


The following List of console messages, which are applicable to 
definition of the message and the operator action 


file formats, contains’ the 
required to correct the error cond 


Message 


BCR MT D#iccdd 


the 
sed. 


execution 


report whenever a volume of a 


Meaning 


Operator loaded output tape reel with: 


Reel 
File 
Reel 
File 


serial number ~- XXXXX 
Code - YY 

sequence number —- WWW 
sequence number - SSS 


Operator continued multi-reel output 
file with: 


Reel serial number - XXXXX 

File code - YY 

Reel sequence number —- QQQ 

File sequence number - SSS 

Input file was started with: 

Reel serial number - XXXXX 

File code - YY 

Reel sequence number —- QQQ 

File sequence number - SSS 
Operator continued multi-reel input 
file with: 

Reel serial number - XXXXX 

File code - YY 

Reel sequence number —- QQQ 

File sequence number - SSS 

the H2000 


ition: 


sssss-aa L=nnnnnn  F=mmmmmm 
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BCR - block count error 

MT - magnetic tape subsystem 

DAi - IOM number 

cc - channel 

dd - device number 

sssss - job sequence number (SNUMB) 

aa - activity number 

L=nnnnnn - trailer Label block count 

F=mmmmmm —- internal block count 
Options 


C - continue execution, ignoring the label block 
E - force an end-of-file condition 
A - abort program 


Meaning 


The block count in the trailer Label does not agree with the internal block 
count. 


Action 


The operator may select option C, E, or A. 


BTIH MT D#iccdd sssss-aa NA 


wheres 
BTIH - blank tape on input header 
MT ~- magnetic tape subsystem 
D#i - IOM number 
cc - channel 
dd - device number 
sssss - SNUMB 
aa - activity number 

Options 
N - dismount tape and mount new tape to continue 
A - abort the program 
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Meaning 


A tapefile was opened as input and the first physical record read is blank 
or unreadable, or the density is incorrect for $ TAPE27/7/29 card. 


Action 


The operator may select option N or A. 


Message 


BKBBBBTIT MT D#iccdd sssss-~aa € 


where: 
BTIT - blank tape on input trailer 
MT - magnetic tape subsystem 
D#i - IOM number 
cc - channel 
dd - device number 
sssss —- SNUMB 
aa - activity number 
Option 


E - end-of-file condition 


Meaning 


The input trailer label is invalid or unrecognizable. 


Action 


None. 
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Message 


IHLR MT D#iccdd sssss-aa . 
LABEL IS file ser # reel seq # filename errrrr 


SHOULD BE file ser # reel seq # filename NAIC 


wheres: 
IHLR - input header Label error 
MT - magnetic tape subsystem 
D#i - IOM number 
cc ~ channel 
dd | - device number 
sssss - SNUMB 
aa ~ activity number 
LABEL IS - information from input header label 
SHOULD BE - internal information 
Options 
N - dismount tape and mount new tape to continue 
A - abort the program 
I - ignore any subsequent IHLR processing 
C - continue execution, ignoring the label check 
Meaning 


An error exists on the input header Label. The information on the tape 
Label does not agree with that generated internally. 


Action 


The operator may select option N, A, I, or C. 
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Message 


BKKBBKBLABEL MT D#iccdd sssss~-aa rrerrr 


ees EN — CIREMRRE ENE arcane 


wheres: 


MT “ 
D#i 
cc = 
dd = 
sssss - 
aa oy 
reeero- 


Meaning 


magnetic tape subsystem 
IOM number 

channel 

device number 

SNUMB 

activity number 

reel number 


Informs operator that the file opened as output has a retention period for 
one or more days so that an external Label identifying the data may be prepared. 


Action 


None. 


Message 


OHLR MT OD#iccdd sssss-aa errrrr Literal reply 


where: 


OHLR - 
MT = 
D#i = 
cc > 
dd = 
sssss - 
aa - 
reeer om 


Literal 


NOTLAB 
PREV 


VERIFY 


UNEXP 
PERM 


S 


output header label error 
magnetic tape subsystem 
IOM number 

channel 

device number 

SNUMB 

activity number 

reel number 


(type of discrepancy) 


output tape has no label. 

output reel number entered in response to a LOCATE message 
does not agree with the number of the mounted reel. 

file serial number in the Label does not agree with 

the file serial number provided on tape control card. 
output header Label indicates unexpired retention. 

output header Label indicates permanent retention. 


Reply (Ccombination of the character options available, 
indicating that operator response is needed) 
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Options 


- dismount tape and mount new tape to continue 
- abort program 

continue execution, ignoring the Label check 
- accept the mounted tape 

- build a new Label using new reel number 


MHOoryY Zz 
‘ 


Meaning 


A discrepancy was detected in the output header Label. The type of 
discrepancy is indicated by the Literal. 


Action 


The operator may select any of the options N, A, C, I, or #. 


Message 


RCE MT D&#iccdd sssssmaa L=nnnnannnnnn F=mmmmmmmmmm CEA 


where: 
RCE - record count error 
MT - magnetic tape subsystem 
D#Fi ~ IOM number 
cc - channel 
dd - device number 
sssss - SNUMB 
aa - activity number 
L=nnnnnnnnnn - trailer Label record count 
F=mmmmmmmmmm —~- internal record count 
Options 


C - continue executjon, ignoring the label check 
E - force an end-of-file condition 
A ~- abort program 


Meaning 


The Logical record count in the trailer label does not agree with the 
internal record count. 


Action 


The operator may select option C, E, or A. 
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Message 


RDY MT D#iccdd sssss-aa_ filename _ rrrr yyyy processing mode reply 
where: 

RDY - ready 

MT - magnetic tape subsystem 

DAG - IOM number 

cc - channel 

dd ~ device number 

sssss - SNUMB 

aa - activity number 

filename - file name from $ TAPE27/29 card 

reer - reel serial number 

yyyy - reel sequence number 

processing mode - input or output 

reply ~ character options available, indicating that 


operator response is needed 


Options 
C =~ continue execution 
E - force an end-of-file condition Cinput only) 
Meaning 


Instructs the operator to mount the indicated tape reel and ready the 
device. 


Action 


The operator may select option C or E for input, but can only use C_ for 
output. 


NOTE: The Literal PREV may occur in the sequence number field of the 
output message when the operator has mounted a reel (part of a 
multi-reel set) that is too far along in the set. The operator 
should select the correct tape from earlier in the set, mount it, 
and respond "C", 
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Message 


TRL_ER D#iccdd sssss-aa filename rrrr_yyyy processing mode only 
where: 

TRL ER - Trailer label error. 

D#i - IOM number 

cc - channel 

dd - device number 

sssss - SNUMB 

aa - activity number 

filename - file name from $ TAPE 27/29 card 

ol ag eal ~ reel serial number 

yyyy - reel sequence number 

processing mode - input or output 

reply ~ character options available, indicating 


operator response is needed 


C - continue execution 
F - force an end-of-file conditionCinput only) 
A - abort program 


Meaning 


Informs the operator that the Trailer Label groups on the input 
dismounted was incorrect or missing. 


Action 


reel jus 


The operator may continue processing by mounting the indicated reel, an 


responding with a "C". 


The operator may set and end-fo-file condition and continue processing b 


responding with an "E". 


The operator may abort the program by responding with an "A". 
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Message 


USW MT D#iccd sssss-aa (D#iccd) filename SEQ#xxx 
rrrfr processing mode 


wheres 

USW - unit switch 
MT -~ magnetic tape subsystem 
DAI - IOM number 
cc - channel 
dd - device number 
sssss - SNUMB 
aa - activity number 
(D#iccdd) - alternate IOM channel, and device number 
filename - file name from $ TAPE27/29 card 
SEQHXxxx ~ reel sequence number 
reeee - reel number 
processing mode ~- input or output 

Meaning 


The alternate or secondary device was in a ready state during unit 
Switching and an automatic unit switch occurred. 


Action 
None. 
Message 


VERIFY DH#iccdd sssss-aa filename ENDING rr mode reply 


where: 
VERIFY =~ request from operator to verify 
DAI - IOM number 
cc - channel 
dd - device number 
sssss -~ SNUMB 
aa - activity number 
filename- filename if present on tape card 
ENDING - operator ended a previous RDY.MT message 
rer ~ reel sequence number 
mode - processing mode: IN, OUT, or EXT 
reply - operator response is needed 


reply Options: 


Y - Yes, end with last volume. 
N - No, do not end. Reissue 
RDY.MT message. 
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Meaning: 
Requests that the operator verify the ending of the input file. 


Actions: 


A yes (Y) response causes an end-of-file condition to be set-up for the 
input file. A no (N) response causes the RDY.MT message to be reissued. 
Processing can continue when the next volume is mounted. 
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SECTION XI 


DEDICATED PRINTER CAPABILITY 


UFAS provides an interface to a dedicated online printer for those 
applications requiring forms control. This capability is available for BCD and 
ASCII output, 


t 


To use a dedicated printer, the user program must create a Fibs with the 
FIBMAC macro and must open the printer (which is treated as another file) with 
the DOPEN macro. The DLPUT macro writes data to the printer. The printer is 
defined as a GFRC sequential file. 


ALLOCATING A PRINTER 


The printer must be allocated as a dedicated device via an external control 
card. 


An external control card must be used to direct the Peripheral Allocator to 
allocate an online printer and to provide information to UFAS. The printer 
cannot be assigned to SYSOUT. 


The control card is: 


$ PRINT FC,... 
wheres 
FC is the file code used in the UFAS macros to reference the printer. 


See the Control Cards Reference Manual "Control Card Descriptions" section 
for full details on the parameters and use of the $ PRINT card. 


After the printer is allocated, the user program may direct output to it. 
The printer must be specified as a GFRC Sequential file with any of the 
following media codes: 


Media Code Meaning 
3 BCD Print Line image 
? ASCII Print Line image 
9 BCD Print Line image with two-character file code embedded 
13 ASCII Print Line image with two-character file code embedded 
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PROCEDURES 


COBOL-74 or GMAP user developing programs that write to a dedicated 


printer should be aware of the following: 


The user program is responsible for processing the Printer Button 
Interface (PBI) status returned from UFAS. 


While the COBOL-74 FIL-STATS field (Cor GMAP FSCODE field) is optional, 
it must be specified if the user wants to know which PsI was pressed 
by the operator. This information allows the user program to perform 
different functions depending on what status is returned. 


An error procedure for the output file is optional. If it is 
provided, any PBI status that is detected causes control to be passed 
to the error procedure. No commands to the printer are allowed while 
the error procedure is in control. 


The decision of whether to specify buffers (COBOL-74 Reserve clause or 
FIBMAC NBUF parameter) affects the trade-off between performance and 
control. 


- If no buffers are specified, UFAS defaults to one System Standard 
Format (SSF) buffer. Data is written to the printer when the 
buffer is full or when 64 print/slew Lines have been sent to 
UFAS. The advantage of this approach is higher performance of 
the print job. The disadvantage is less control because PbI 
status 1s returned only after the entire buffer is written. The 
status could represent an interrupt that occurred while printing 


one of the first records in the buffer. This Limits the 
flexibility of a program to perform Logical routines in response 
to a PBl. 


- If any number of buffers are specified, UFAS writes each record 
as it is received from the user program. This approach gives 
more control to the user program because status is returned after 
each record. The disadvantage of this approach is the reduction 
in performance due to the increased number of printer connects. 


After the user program has issued all its writes, the printer can be 
deallocated before the end of the activity by using a close=with-Llock 
option. See the COBOL-74 Reference Manual for information on the 
close option. 


PRINTER STATUS 


code 


If the user program provides a FIL-STATS or FSCODE field, a two-byte ASCII 
returned after each write to the printer. A code of OU indicates all 


processing was completed. Other codes represent the following PBI statuses: 
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Major Status Substatus Meaning 

(byte 1) (octal) (byte 2) (Coctal) 

always 0 (060) 0 (060) normal 
1 (061) print 1 Line 
2 (062) forward space 
5 (063) forward T.0.P. 
4 (064) invalid Line 
5 (065) reverse/rewind 
6 (066) backspace 
¢ (067) backspace T.0.P. 
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It is important to note that any print command that is interrupted by a 
manual halt will be completed before the PBI status is returned to the user 
program. Therefore, the operator/user should be aware of possible forms 


adjustment when returning the printer to the ready state. This condition is 
more evident when using the multiple buffering option. 


FILE INFORMATION BLOCK MACRO 


The file information block macro provides the GMAP user with an efficient 
means of communicating the specific characteristics of a printer file to UFAS. 
However, before any communication can be established with UFAS, the user must 
invoke the macro package with the command LODM .DMAC. 


ALL file processing information between the user program and UFAS is 
channeled through the FIB macro. For each printer to be accessed, a FIB macro 
must be coded in the user program to define the characteristics of the file and 
the required processing parameters. 


Format 
The FIB macro for a sequential file has the following formats: 


FIBMAC fc,GFRC,Cparameter-name-1,parameter-value-1,..., 


parameter-name-n,parameter-value-nJ 


where: 


fc - file code assigned to file 


GFRC - is the only applicable file format indicator 


Multiple parameter-name and parameter-value combinations constitute a 
keyword-argument arrangement. These combinations may appear in any order within 
the brackets. If a combination of parameter-name and parameter-value is 
omitted, a default value is assumed. If the number of combinations exceeds one 
line, an ETC card must be used to continue on the following Line. 


Only two parameter-values are required for the process area (file status 
code and file name) but three are required for the retention period. Also, no 
symbol that defines an address can be repeated in another FIB macro. In order 
to repeat the same address in more than one FIB macro (e.g., a common process 
area), multiple symbols defining the same address must be used. Do not specify 
default values for parameters that are not required; instead allow the default 
value to be applied automatically. 
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The following 


Parameter 


Number of 
Buffers 
Allocated by 
UFAS 


External 
code 


Internal 
code 


Process 
area 


File status 
code 
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Name 


NBUF 


EXTCOD 


INTCOD 


PROAR 


FSCODE 


List 
defaults which are applied 


Value 
Integer <255 


Integer <2 
(tape) 


ASC 


GBCD 


ASC 


EBCD 


GBCD 


HBCD 


JIS 


Address, 
character 


Address, 
character 


contains 


all the 


Default. . 


os 


ASC 


ASC 


parameters and their respective 
if the parameter name and value are not specified: 


Comments 


“For a dedicated printer 


Code set of the data onthe 
external device. Also, used with 
the internal code set parameter 
to. establish the size of the 
characters within the record and 
the process area, so that the 
records may be converted to this 
code set as. they are moved to 
the buffer. 


ASCII character set. 
GBCD (GFRC BCD). 


Code set of the data in the 
process area. Records are con- 
verted to this code set as- they 
are moved to the process area. 


ASCII character set. 
EBCDIC character set. 
GBCD character set. 
HBCD character set. 
JIS character set. 


A required parameter indicating 
the location and starting char- 
acter or byte position of an 
area within the user program 
from which records are retrieved. 
For GFRC Files, character position 
is assumed to be zero, The size 
of the process area is assumed 
to be equal to the FIB record 
size. If this parameter is not 
specified, the in-place 
processing parameter must be 
specified. 


Location and starting byte posi- 
tion of a two-byte ASCII file 
status code field in which UFAS 
stores a unique status code 
whenever a PBI condition occurs. 


No file status code field. 
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Parameter Name Value Default Comments 


User error USERER address Location of user-supplied error 

Procedure procedure to which UFAS’ trans- 
fers control whenever a_ fatal 
error is detected. 


0 No user error procedure. 
Media code MEDCOD 
3 BCD print Line image. 
7 ASCII print Line image. 
9 BCD print line image with report 
code as first two characters of 
a logical record. 

13 ASCII print Line image with 
report code as first two char- 
acters of a logical record. 

Rules 
Ve The file information block has several assigned fields. If a field is 


not applicable to a particular situation, it 1s ignored. Fields that 
are set in a conflicting manner generate an error. 


am A process area is required. 


FUNCTIONAL MACROS 


Even though each one of the functional macros available performs a specific 
function and has its own format and set of rules, which are described separately 
in detail, certain conventions and rules are common to all functions. 


The Open and Close macros contain the information that is necessary to open 
or close one or more files with one statement. A common FIB List is built and 
is used by all files to be either opened or closed. The user can either reserve 
Space in the program for the FIB List, or can allow the List to be built bythe 
macro. 


In order to execute a functional macro, information pertinent to the 
function must be supplied in a variable information block (VIB). The VIB 
address parameter specifies where the variable information is to be located. 
This parameter may be either zero or omitted if no parameters are required. If 
parameters are required, the user supplies values in the macro parameter fields 
to indicate the values to be entered in the VIB for execution of the function. 


Parameters are expressed in pairs containing a keyword and value. Commas 
must be used to separate each parameter name from the parameter value and two 
consecutive pairs of parameters. Parameter names ending in "I" indicate an 
indirect reference to the parameter value. Parameters may be specified in any 
order. If a parameter and its value are omitted, the default value is assumed. 
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Normally, registers are saved when UFAS is entered and restored when UFAS 
-returns control to the user, except index register 1 which is the transfer 
register. However, when a user error or Label exit procedure is entered, the 
user registers are not restored because UFAS is relinquishing control only 
temporarily to allow the user to process the exception condition. When control 
is returned to UFAS (Cat the completion of the error or label procedure), the 
saved registers are still valid. 


Open Macro - DOPEN 
Function 


The Open macro initiates the processing of a printer, verifies its 
existence, and establishes tables for processing. 


Format 

DOPEN a eae of FIB List ,LCparameter-name-1, 
FIBLSI,address of pointer to FIB List 
parameter~value-1,...,parameter-name-n,parameter-value-n] 


NOTE: FIB List must be defined as Block Starting Symbol (BSS) 3. 


The parameters and respective defaults for this function are as follows: 


Parameter Name Value Default Comments 
FIB Required 
Location of FIB for’ file to be 
opened. 
FIBA Address Location of FIB. 
FIBAI Address Location of pointer to FIB. 
Routine Required 
package Location of a UFAS symbol refer- 
SYMREF ence (SYMREF) that corresponds 
name to a set of routines used to 


process the file. 


SYM DPRNT Package of routines needed to 
process the file. 


SYMI Address Location of the pointer to the 
DPRNT package. 


Processing 
mode 
indicator 
MODE OT OT Output 


MODEI Address Location of processing mode (OT) 
indicator (2 ASCII uppercase 
characters in bits 0-17). 
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Rules 


Example 


Open 
(LIST) in 


The Open macro must be executed before the execution of any 
input/output statements for a file. 


After the initial execution of an Open macro for a file, each 
subsequent DOPEN for this file must be preceded by the execution of a 
Close macro. 


The Open macro does not obtain or release the first data record. 


a printer. This Open macro contains the address of the FIB List 
which the FIB address (FIB) is stored. Note that the MODEI parameter 


references a Location that contains the processing mode indicator "OT". 


LIST 
FIB 


ACCOM 
CARD 


8 16 


LODM ~DMAC . 
DOPEN FIBLS,LIST,CFIBA,FIB,SYM,DPRNT,MODEI,ACCMOD] 


BSS 3 
FIBMAC G0O,GFRC,L,PROAR,CARD,0,FSCODE,STAT,O, 
ETC EXTCOD,ASC,INTCOD,ASC,USERER,ERR]J 


UASCI 1,0T 
BSS 20 


Put Macro veg DLPUT 


Function 


The Put macro places a Logical record in the file. 


Format 


DLPUT FIB 


address,VIB address,, 


CVIB-parameter-name-1,VIB-~parameter-value-1,..0, 


VIB 


NOTE: VIB 
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“-parameter-name-n,VIB-parameter-value-n] 


must be defined as BSS 2. 
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The Put macro has the following 


Parameter Name 


Record size 


RSZ 

RSZI 
Report code 

RPCOD 

RPCODI 
Number of 
Lines to slew 

SLEWN 
Slew code 

SLCOD 

SLCODI 


Indirect FIB FIBI 
addressing 
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Value Default 


Integer 


Address 


1<Integer <63 0 


Address 


Address 


Address 


None 


parameters and respective defaults: 


Comments 
Optional 
Used with variable-Length 
records, but ignored with 


fixed-length records. 


Must be Less than or equal to 
RSZ in FIB. 


Location of field containing 
record size in bits O-17. 


Optional 
Applies only to GFRC files. If 
a negative value is supplied, a 


default report code, assigned 


when the file is opened, is 
used. 


Location of report code field in 
bits 18-35. 


Required 

Only if slew code SLCOD(I) is 4 
or 5. Applies only to System 
Output and GFRC files. 


Location of word containing num- 
ber of Lines to slew in bits 
18-35. 


Optional 
Applies only to  GFRC files. 
Specifies spacing before or 


after print. 

Print after slewing one Line. 
Print before slewing any Lines. 
Print before top of page. 

Print after top of page. 


Print before slewing the number 
of Lines specified in SLEWN. 


Print after slewing the number 
of Lines specified in SLEWN. 


Location of word containing slew 
code in bits 18-20 (bits 21-35 
must be zero). 


Optional 

If this keyword is specified, it 
implies that argument 1 1is_ not 
the actual FIB address, but is a 
pointer to a Location that con- 
tains the FIB address. 
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Rules 


Example 


Send 


includes a 


The designated printer must be open at the time of the execution of 
this statement. 


The record is moved from the process area to the buffer. If an output 
transliteration table is specified, the entire record is 
transliterated from the internal code set to the external code set as 
it is moved. 


a 70O-character line to the printer specified by FIB2. The line 
slew code to print the Line before slewing (15 Lines) and a report 


code of 25. 


1 8 16 
DLPUT FIB2,V1B2,,LRSZ1,ADDS1Z,SLEWN,SL15,SLC0D,4,FIBIJ 
FIB2 ARG FIBX 
VIB2. BSS 2 
ADDSIZ ZERO 70,0 
SL15 DEC 15 
FIBX FIBMAC PR,GFRC,CPROAR,LINE,O,MEDCOD,7] 
LINE BSS 40 


Close Macro - DCLOS 


Functions 


The Close macro terminates the processing of a dedicated printer. 


Format 


DCLOS ee ae of FIB List ,Lparameter-name-1, 
FIBLSI,address of pointer to FIB List 


parameter-value-1,...,parameter-name-n,parameter-value-n] 


NOTE: FIB List must be defined as BSS 2. 
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The following parameters and respective defaults apply: 


Close and deallocate the printer specified by the file code 


DCLOS 


ADDFIB ARG 


LIST2 BSS 
FIB FIBMAC 
RECORD BSS 


16 


Parameter Name Value 
FIB address 
FIBA Address 
FIBAI Address 
REW RWFL 
RLFL 
REWI Address 
REWV 0 
2 
Rules: 
1. The Close macro 
with DOPEN. 
Example 


Default 


RWFL 


can only be executed for 


Comments 


Required 
Location of 
closed. 
Location of 


Location of 


Rewind file 


FIB for 


FIB 


file to be 


pointer to FIB 


Rewind and Lock file 


Location of rewind indicator 


Rewind file 


Rewind 


FIBLS,LIST2,CFIBAI,ADDFIB,REW,RLFLI 


FIB 


CF,GFRC,CPROAR,RECORD,0) 


20 
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a printer 


and lock 


that 


was opened 


in the FIB. 
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SECTION XII 


RERUN AND TAPE UTILITIES 


The rerun and tape utility functions provide labeled input tape density 
determination, tape management by file name (Cin Lieu of serial number), restart 
Capabilities, rerun capabilities, external tape label creation, checkpoint 
notification, and logical and physical record count display for sequential 
files. 


The functions are: 


8 Adjust Density -~ UFAS attempts to set labeled input ANSI, IBM, UFF, 
GFRC, and H2000 tape handlers to the correct density when the user 
specified or system default density is incorrect. 


e File Name Identified Tape (FNIT) -- This feature permits the user to 
manage his tape Library using file names in Lieu of the conventional 
tape reel serial number system. This feature is applicable to labeled 
ANSI, IBM, UFF, and GFRC single-file, single- or multi-extent tapes. 


@ Rerun Functions: 
- Defective Volume Replacement -- This feature allows the user to 
recreate defective volumes of a sequential single- or 


multi~volume ANSI, UFF, or GFRC Labeled tape file. 


- Activity Restart -- This feature allows the user to restart an 
activity from a defined checkpoint on tape or a permanent mass 
store file. Only labeled ANSI, UFF, and GFRC' single- or 
multi-~volume tape files are checkpointed. 


The COBOL user can designate an alternate checkpoint file. The 
alternate file must be on mass storage with a file code of "RX". 
When this file is specified, checkpoints are written to both 
files alternately. This feature requires the use of the COBOL 
"RERUN" sntax. 


- Volume Size -- This feature provides the capability to specify 
the number of physical records (blocks) to be written to each 
volume of an output ANSI, UFF, or GFRC Labeled, single- or 
multi-volume tape file. 


The volume Size feature must be invoked by the user program if 
Defective Volume Replacement is to be performed. 


- User External Labels -- This feature provides an exit from UFAS 
to a user defined procedure to allow the user program to print 
external tape Labels on the display media (console typewriter or 
printer) of the user's choice. 


UFAS passes tape label data to a user supplied Label data area. 


This feature is applicable to both Labeled and unlabeled ANSI, 
UFF, and GFRC single~- or multi-volume tape file. 
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- Checkpoint Record Tracking --~- This feature provides checkpoint 
tracking messages on the Execution Report ($$). Checkpoints are 
identified by file code and cumulative count. 


e Physical and Logical Record Tracking -- The physicat (block) and 
Logical (record) content of input and output sequential tape and mass 
storage files processed by UFAS are displayed by file code on the 
Execution Report ($$) at file CLOSE. This feature is applicable to 
all sequential file formats. 


e Dedicated Tape -- This feature allows the operator to assign tape 
units to a particular multi-~volume file and release tape units so 
assigned. 


These functions are invoked through an Executive interface module. User 
programs are required to affect loading of the required sub~routines by use of 


the $ USE .DRUOA directive. eDRUOA is the primary SYMDEF in the Executive 
module. 


ADJUST DENSITY 


The Adjust Density feature requires no external user interface. UFAS Label 


Processor (SSAs) automatically attempt to determine proper density while reading 
input tape labels. 


eer ee maa 


The user applications must provide a tape serial number of "99999" and a 
file name in the form: 


aaaaaaaa-nnn 


where: 


The whole name can contain a maximum of 12 characters. aaaaaaaa can be a 
1- to 8-character alphanumeric string. The hyphen (=) is a required 
separator. nnn is three character numeric, string that specifies the 
generation number of the file. 


The name is specified in the JCL $ TAPE cards. 


File names supplied via the $ TAPE cards are placed in the ANSI, IBM, UFF, 
and GFRC output file header labels. A file name supplied for input files are 
verified against the name in the file header Label. 


Example 
1 8 16 
$ TAPES IN,A10,,99999,,TAPEFILE-001,,DEN17 
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RERUN FUNCTIONS 


Defective Volume Replacement 


The defective volume replacement function is invoked by executing program 


"S31A". The function is controlled by the RERUN directive. The program 
directives are placed in the temporary data file V* which must be allocated by 
the user. 


The format of the RERUN directive is: 


RERUN, FCOD/fc/ 
C,NVOL/nn/J 
C,NEXT/sssss/J 
C,CPY/fcLl,nnnnnjilC,pppppj/) 
C,FNAME/filename/) 
C,OUT/fc1l0,...J/) 


where: 


FCOD/fc/ is a required parameter that specifies the field code of the 
defective volume that is to be replaced. 


NVOL/nn/ is an optional parameter that specifies the number of defective 
volumes that are to be replaced. If this parameter is omitted, the default 
is 1. 


NEXT/sssss/ iS an optional parameter that specifies the serial number of 
the volume following the last specified defective volume. If this 
parameter is omitted, the default is 99999. If the number is specified, it 
is placed in the trailer Label of the Last recreated volume (GFRC and UFF 
file formats only). 


CPY/fc,nnnnn,ppppp/ is an optional parameter that specifies the file code 
of the defective volume set. nnnnn specifies the tape serial number of the 
new volume. If omitted, this parameter defaults to 99999. ppppp specifies 
the tape serial number of the volume that precedes the volume or volumes 
being recreated. If omitted, this parameter defaults to 99999. 


FNAME/filename/ is an optional parameter that specifies the file name 
contained in the checkpoint tape header label. If it is specified, it is 
compared with the file name from the tape header Label. This option is 
applicable only to non-FNIT tapes. 


OUT/fc/ is an optional parameter that specifies the file code or codes from 


the restarted activity. A maximum of 14 files can be specified. The 
output files must be allocated via the $ TAPE or the $ PRMFL JCL cards. 


The directives consist of keywords and values. Keywords are separated from 


their associated optional values by beginning and ending slashes (/). Keywords 
as well as multiple values within a keyword are separated by commas. A blank 
preceded by a slash terminates the directive. 
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Directives must begin in column 1. 
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If the optional CPY directive is not used, the file beginning Label (or 
Label set) and the checkpoint “record on the original defective volume are 
skipped over and the recreated data is written over the original volume. 


The JCL required to invoke the defective volume replacement is: 


1 8 16 

$ ‘IDENT 

$ PROGRAM S31A 
$ LIMITS (see following explanation) 
$ DATA Vx 

RERUN... 

$ TAPE aves 

$ PRMFL eee 

$ ENDJOB 


Program LIMITS must be set to program execution memory required plus 4K. 
If the RERUN program (S31A) determines that ihsufficient memory has been 
allocated to the activity, it attempts to GEMORE the additional memory required. 


The additional 4K of memory allocated for the RERUN program is released before 
the call to GEROLL. 


ALL required files must be allocated by the user. If the checkpoint file 
is on tape the user must allocate a permanent file (file code YY) to which the 
RERUN program copies the tape checkpoint. For examples: 


1 8 16 
$ ~" PRMFL YY,W,R,cat/file descriptor 


Activity Restart 


The activity restart function is invoked by executing the S31A program. 
The function is controlled by the RSTRT directive. The directives must be 
placed in the temporary data file V* which must be allocated by the user. 


The format of the RSTRT directive is: 


RSTRT,FCOD/fc/ 
C,CKPTN/nn/] 
C,FNAME/filename/) 


wheres 


FCOD/fc/ is a required parameter that specifies the file code of the 
checkpoint file. 


CKPTN/nn/ is an optional parameter that specifies the checkpoint number 
from which the activity is to be restarted. If this parameter is omitted, 
the activity is restarted from the Last checkpoint that was taken, 


FNAME/filename/ is an optional parameter that specifies the file name 
contained in the checkpoint tape header label. If this parameter is 
present it is compared with the file name from the tape header label. This 
option is applicable only to non-FNIT tapes. 
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The directives consist of keywords and values. Keywords are separated from 
their associated optional values by beginning and ending slashes (/). Keywords 
as well as multiple values within a keyword are separated by commas. A blank 
preceded by a slash terminated the directive. 


Directives must begin in column 1. 


The JCL required to invoke the activity restart function is: 


1 8 16 

$ IDENT 

$ PROGRAM S31A 

$ LIMITS (see following explanation) 
$ DATA Ve 

RSTRT.wee 

$ TAPE ae 

$ PRMFL eos 


$ ENDJOB 


Program LIMITS must be set to program execution memory required plus 4K. 
If the RSTRT program (S31A) determines that insufficient memory has been 
allocated to the activity, it attempts to GEMORE the additional memory required. 


The additional 4K of memory allocated for the RSTRT program is released before 
the call to GEROLL. 


ALL required files must be allocated by the user. If the checkpoint file is on 
tape the user must allocate a permanent file (file code YY) to which the RSTRT 
program copies the tape checkpoint. For example: 


1 8 16 
$ PREML YY,W,R,cat/file descriptor 


Print Function 


The Print function provides a means of scanning a checkpoint file for 
checkpoint information. The Print function is invoked by the S31A program. The 
function is controlled by the PRINT directive. 


The format of the PRINT directive is: 
PRINT,FCOD/fc/ 


where: 


FCOD/fc/ is a required parameter that specifies the file code of the 
checkpoint file. 
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The directives consist of keywords and values. Keywords are separated from 


their associated optional values by beginning and ending slashes (/). 
as well as multiple values within a keyword are separated by commas. 
preceded by a slash terminates the directive. 


Directives must begin in column 1. 


The JCL required to invoke the Print function is: 


1 8 16 

$ IDENT 

$ PROGRAM S31A 

$ LIMITS ,4K 

$ DATA Vx 

PRINT... 

$ PRMFL fc,R,cat/file descriptor 
$ ENDJOB 


Volume Size Function 


Keywords 
A blank 


The volume size function is used in conjunction with the replace defective 
volume function, The volume size function is controlled by directives on the 


temporary data file Wx. 


The format of the volume size directive is: 


fc,Bnnnnn[,L] 


where: 


fc is a required parameter that specifies the file code of the 


which the volume size is to be Limited. 


Bnnnnn is a required parameter that specifies the number of 


(physical records) to be written on each volume of the file. 
Limited to 5 digits. 


file on 


blocks 


nnnnn is 


L is an optional parameter that specifies that the external label exit is 


to be used for this file. This function is described in the 
subsection. 


Directives begin in column 1. Parameters are separated by commas 


following 


(,). A 


blank terminates the directive. Only one file code specific directive is 


permitted on a Line. 


If the directive file code is T*, the content of the directive string from 


column 3 through 80 is printed on the console typewriter. 
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DEDICATED TAPE 


The user JCL may not specify an alternate tape unit in the $ TAPE control 
cards if operator tape dedication is in use for the pertinent file code. For 
example: 


1 8 16 
$ °- TAPES fc,LUD,,12345,1,MYFILE,,DEN16 
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APPENDIX A 


PROGRAMMING AIDS 


MAGNETIC TAPE DENSITIES 


The UFAS tape density settings are applicable to the Microprogrammed 
Peripheral Controller (MPC) 500 and 600 tape subsystems, ASA subsystems, and 
mixed subsystems (a combination of the two types of subsystems). Density 
settings of 6250 bpi require an MPC 0610. 


Densities can be set via the $ TAPE control card or by default. UFAS does 
not allow the user to set density internally. 


The MPC subsystems and the ASA subsystems use the densities specified at 
system startup time or on the $ TAPE card option DENn. When specified, the 
$ TAPE control card setting always prevails. For detailed information about the 
densities pertinent to the various subsystems, see Tables A-1, A-2, and A-3. 


Table A-1. MPC Magnetic Tape Subsystems 
SYSTEM STARTUP $ TAPE DENSITY 
SPECIFIED DENSITIES SPECIFIED/ALLOCATED 
9-TRACK TAPE 


DEN16 DEN8 DENS DEN2 NONE DENY 


REQUESTED DENSITY 
ALLOCATED 


WILL BE UNCHANGED 


6250 


REQUESTED DENSITY 
ALLOCATED 


WILL BE 1600 UNCHANGED 


REQUESTED DENSITY WILL BE 800 UNCHANGED 
ALLOCATED 


REQUESTED DENSITY 
ALLOCATED 


WILL BE 556 UNCHANGED 


REQUESTED DENSITY WILL BE 200 UNCHANGED 
ALLOCATED 


Illegal REQUESTED DENSITY WILL BE UNCHANGED 
ALLOCATED 


Illegal REQUESTED DENSITY WILi BE 556 UNCHANGED 
ALLOCATED 
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Table A-1 (cont) MPC Magnetic Tape Subsystems 


SYSTEM STARTUP $ TAPE DENSITY 
SPECIFIED DENSITIES SPECIFIED/ALLOCATED 


N/A 200 Illegal REQUESTED DENSITY WILL BE 200 UNCHANGED 
ALLOCATED 


NOTE: 


If system startup densities are not specified on the $ INFO card, the 
default indicated in the outlined block is assumed. 


Table A-2. ASA Tape Subsystems 


SYSTEM STARTUP $ TAPE DENSITY 
SPECIFIED DENSITIES SPECIFIED/ALLOCATED 
DEN1T6 DEN8 DENS DEN2 NONE 
ILLEGAL 
ILLEGAL 
ILLEGAL 
ILLEGAL 
ILLEGAL 
ILLEGAL 
556 UNCHANGED 
UNCHANGED 
UNCHANGED 
UNCHANGED 
ILLEGAL 
When the user specifies on the $ TAPE control card a density 
not Listed in Tables A-1, A-2, and A-3, the program aborts. 
Density setting: 800 bpi high and 200 bpi low 
Density setting: 556 bpi high and 200 bpi low ASA 
Density setting: 556 bpi high and 556 bpi low be ere 
Density setting: 800 bpi high and 556 bpi low 


Illegal 


If system startup densities are not specified on the $ INFO} 
card, the default indicated in the outlined block is assumed. 
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Table A-3. Mixed Subsystems 


SYSTEM STARTUP 
~ SPECIFIED DENSITIES 


$ TAPE DENSITY 
SPECIFIED/ALLOCATED 


DEN16 


1600° 


1600° 


1600° 


1600° 


1600° 


1600° 


1600° 


DEN8 


300/800 
300! 


800/800 


800/800 


800/800 


DENS 
ILLEGAL 
ILLEGAL 

556! 
556/556 
556! 


ILLEGAL 


~ 556/556 


1 
556 


556/556 
556/556 


ILLEGAL 


When the user specifies on the $ 


DEN2 


200/200 
200/200 
200/200 


200! 
200/200 
200! 


200/200 


TAPE 


1600/800 
1600/800 
1600/200 


800/800 
800/800 
956/556 


556/556 


UNCHANGED 


UNCHANGED 


UNCHANGED 


UNCHANGED 


UNCHANGED 


UNCHANGED 


UNCHANGED 


UNCHANGED 


UNCHANGED 


UNCHANGED 


UNCHANGED 


control card a density 


not Listed in Tables A-1, A-2, and A-3, the program aborts. 


Density 
Density 
Density 
Density 


Illegal 


If system startup densities are not 
the default 


card, 


setting: 
setting: 
setting: 


setting: 


800 bpi 
556 bpi 
556 bpi 


800 bpi 


high and 


high and 
high and 


high and 


200 bpi low 


ASA 
Tape 
Subsystem 


200 bpi tow 


556 bpi low 
S56. bpi cow 


specified on the $ INFO 


indicated in the outlined block is assumed. 


CHECKPOINT RECORDS ON DATA TAPES 


Checkpoint records delimited by end-of-file 00 on data tapes are bypassed 
on UFF sequential, H2000, and GFRC files, except on data tapes that contain 
these checkpoints recorded at 1600 bits per inch on an MPC600. The hardware 
issues an EOF mark, but transmits a standard EOF character (17 or 23) to the 
software. If tapes with checkpoint records are to be read on an MPC600, the 
tapes must be copied in advance to eliminate the checkpoint records. 


standard EOF marks 
non-standard EQF marks. Consequently, ‘the user must 
checkpoint file if checkpoints are required. Checkpoints 
included in data tapes on UFF sequential, H2000, and GFRC files. 


Files with checkpoints because an 
MPC600 does not allow 
provide a separate 


must never be 


are delimited by 
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CONTROL CARDS 


Tape or mass storage control cards must be supplied by the user at 
execution time to specify the devices to be selected for each file. Mass 


storage devices for ISP and UFF files must be allocated as random (see Control 
Cards Reference Manual). 


Buffer Pooling (UFF Relative, Indexed, And Integrated Only) 


In order to change buffer space assignment and to specify buffer pooling, 
the user must provide, when the program is ready for execution, a $ DATA .U file 
and control cards having the following format: 


1 8 
i bo (PPLE FC/XX/,PLID/YYYYYY/,NBUF/NNNN/,BFSZ/MMMMM/,LOVI/II1I/,GOVI/GGG/ 


X - 2-byte file code of the file to which card applies. 


Y- 1 to 6 alphanumeric characters for name of pool; all file cards that 
refer to the same pool must have the same name in this field. 
I N- 1 to 4 numeric characters to indicate the number of buffers in the 
pool. 
M- 1 to 5 numeric characters to specify the number of characters in the 


Largest control interval of all the files in the pool. 


I - 1 to 3 numeric characters, ranging from 1 to 510, which will override 
LOVINC in the FIB for UFF indexed files in build mode. This parameter 
represents a ratio of data control intervals to overflow control 
intervals that will be allowed in the file during build mode. 


G - 1 to 3 numeric characters, ranging from 1 to 510, which will override 
GOVINC in the FIB for indexed files in build mode. This parameter 
represents a ratio of data control intervals to overflow control 
intervals that will be allowed in the file during build mode. 


Although the parameters are optional some are interdependent and cannot be 
used separately. The following formats are valid: 


1 8 
¢= FILE FC/XX/,PLID/YYYYYY/,NBUF/NNNN/,BFSZ/MMMMM/ 
a= ALLE PLID/YYYYYY/,NBUF/NNNN/,BFSZ/MMMMM/ 
4 - FILe PLID/IDS/,NBUF/NNNN/,BFSZ/MMMMM/ 
oo UPERE FC/XX/,NBUF/NNNN/,BFSZ/MMMMM/ 
6 = “PILE FC/XX/,PLID/YYYYYY/ 
v =. RICE FC/XX/,PPS/ASCII/ 
8 -= (FILE FC/XX/,TPMARK/NO/ 
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Format 2 - Assign this file code to the pool denoted by PLID. 


Format 3 - Assign all UFF files (except I-D-S/II files) to the pool denoted 
by PLID. 
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Format 4 - Assign all I-D-S/II files for the same pool. 


Format 5 - Assign the number of buffers and the buffer size specified to 
this file. 


Format 6 ~- Assign this file to the pool denoted by PLID. If the pool does 
not exist, FIB information is used to build file buffers. 


Format 7 - Assign the output to a print-file created in the Page Printing 
System (PPS) format. 


Format 8 ~- Assign this file to an unlabeled EBCDIC tape with no leading 
tape mark. 


Formats 2, 5, and 6 must have unique file codes. Formats 6 and 7 can be 
used in addition to format 4. Formats 3 and 4 can be used only once. Format 5 
is used to override the number and size of buffers specified in the program. 


Space Assignment For Internal Structures 


UFAS dynamically acquires space for all necessary internal structures. 
These internal structures comprise the following tables and buffers: File 
Control Table (CFACT), Device Control Table (DCT), Buffer Control Table (BCT), 
File Attribute Block (FAB), and label buffers when needed. No direct 
intervention is required on the part of the user. 


When additional memory is required, the unused space in the program area 
(remaining from the loading process) is _ used. If the unused space is 
insufficient, more is requested from the operating system. The user can reduce 
system overhead by increasing the memory required to run the program with a 
$ LIMITS card (see Control Cards Reference Manual). The increase can be 
estimated as the sum of the number of words required for all control intervals 
of all the files to be opened at the same time. 


Execution Time Parameters 


The $ DATA .U file can be used with a control card with format 4 to 
override FIB parameters for control interval size (BFSZ), the number of buffers 
(NBUF), the load overflow increment (LOVI) and the general overflow increment 
(GOVI). When attempting to override the FIB parameters for a tape file, the 
user may request a maximum of two buffers. 


Example: 
1 8 
FILE FC/AA/,NBUF/5/,BFSZ/2048/ 
FILE FC/BB/,LOV1I/10/,G0V1I/20/ 


NOTE: The first format requires the presence of both the NBUF and BFSZ 
parameters. 
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Defaults 


If neither the control interval size nor the number of buffers is specified 
in the FIB or the $ DATA .U file, UFAS will provide buffer space for each file 
Large enough to contain 4096 words. The specific defaults for control interval 
sizes and buffers are Listed by file format. If the defaults do not meet the 
file requirements, the user must specify the sizes. 
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Control Interval Size Defaults 


UFF (mass storage) 
GFRC (mass storage) 
ISP 

UFF (tape) 

ANS 

IBM 

GFRC (tape) 

2000 


Number of Buffer’ Defaults 


Number of Buffers = - 4096 


Control Interval Size 


512 
320 
320 
4096 
4096 


4096 
4096 


4096 


words 
words 
words 


words. 


words 
words 
words 
words 


Both CI Size and Number of Buffer Defaults 


UFF (mass storage) 
GFRC and ISP (mass storage) 
ALl tape formats 


8 - 512-word buffers 
12 - 320-word buffers 
1 - 4096-word buffer 
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FORMULAS 


Control Interval Size 


The following formulas are intended to assist the user in determining the 
control interval size to be supplied to the FIB when records have fixed Length. 
Note that CI and R are expressed in bytes or characters, depending on whether 
the external code set specified in the FIB is a 6-bit or 8-bit plus parity code 
set. 


CI - Control interval size in bytes or characters 
N =- Number of fixed-Length records per block 


R - Fixed-length record size in bytes or characters 


UFF Sequential and Relative 


CI = NCR+4) +8 (external code set must be 9-bit data only) 


UFF INDEXED 


CI = NCR#10)+4+22 (external code set must be 9=-bit data) 


American National Standard (with BSN) 


CI = NCR) +6 (external code set must be 9-bit data only) 


American National Standard (without BSN) and IBM 


Cl = NCR) Cexternal code set must be 9=-bit data only) 
GFRC 

C1 = NCR) Cexternal code set may be 6- or 9-bit data) 
H2000 

CI = NCR) Cexternal code set must be 6-bit data only) 
ISP 

CI = NCR+12)+6 Cexternal code set must be 6-bit data only) 
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Index File Size 


The file size required for the prime keys and alternate keys is calculated 


as follows: 


Ag Prime Key 


Independent variables used: 


NREC 
BLOCK 
CISz 
KEYSZ 


A 


~ Number of records in the file 

Number of records per control interval (Caverage) 
Control interval size in words 

~ Prime key size in words 


(NREC / BLOCK) 


(CISZ—3) /(KEYSZ*1) 


B = A 
(CI1SZ-3)/(KEYSZ+1) 
c = B 
CCISZ-3)/(KEYSZt1) 
D= C 
CCISZ-3)/CKEYSZ+1) 
SIZE = (A +B +C + D) x CISZ (words) 
(Links) 3840 


2. Alternate Key 


Independent variables used in addition to those Listed for prime key: 


UREC 
DREC 


- Number of different key values in alternate key file 
- Number of records containing duplicate key values 


If all keys are unique, 


A = 


NREC 


(CISZ-5)/ CKEYSZ+1) 


If duplicate keys are present, 


A = UREC + DREC 
(CISZ-5)/ CKEYSZ+1) (cIsz-5) 
SIZE = (A +B+C+D) x CISZ (words) 
(Links) 3840 
NOTES: 1. If additional space is required, UFAS will provide the space 
via a MME GEMORE. 
2. The alternate key calculation must be performed for each 


alternate key. For Indexed files with alternate keys, the 
space calculated for prime key must be added to the-= space 
calculated for each alternate key. 


A-8 DC89-03 


UFF INDEXED ALTERNATE KEY SORT 


UFAS sorts the alternate key values to construct alternate key indexes when 
the file is built or when the I-D-S/II Key File Utility routine is run (see the 


Sort/Merge Program manual, order number 0DDO9, for discussion of Sort 
procedures). 


UFAS allocates a 1-link file for Sort I/0. If the user does not allocate 
at least one collation file (S81), UFAS obtains a 1I-lLink file via a MME GEMORE. 
If the user has not allocated Sort space, UFAS makes sure that at least 16K of 
memory is available for the Sort. 


The file allocated for Sort 1/0 is a UFF sequential mass storage file with 
a CI size of 2048 bytes. File space is enlarged in 1-lLink increments, as 
needed. Two buffers are specified. 


If the number of alternate key values is large, performance of the 
alternate key index built may be improved by increasing the number of buffers 
and/or enlarging the size of the Sort file, and/or increasing memory size for 
Sort. 


If the I-D-S/II Key File Utility routine is not being used, the user can 
allocate sufficient Sort Collation file space. Memory can be allocated with a 
$ USE card as follows: 


1 8 16 
$ USE -SMA/1/,.SMB/n/,.SMC/1/ 


where: on = At Least 16K words 


UFAS provides an additional means for specifying Sort 1/0 file size, number 
of buffers, and Sort memory size at execution. 


The user controls the size and growth of the Sort I/0 file via either a 
$ PRMFL or a $ FILE card. UFAS increases file size in increments of 5 percent 
of the initial file size. 
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The userrallocated file code, number of buffers, and/or size of Sort memory 
can be specified to UFAS via a $ DATA .U file control card as-follows: 


1 8 


KEYSRT IFC/aa/,SFC/bb/,SNBUF/cccc/,SMEM/dd/ 


where: 


aa - File code of the indexed index file to which the Sort 
parameters apply 


bb - File code of the userv~allocated Sort I/0 file (optional). 
cece - Number of buffers to allocate to the Sort 1/0 file (Coptional) 


dd - Number of 1K-word units of memory to reserve’ for Sort 
Coptional). This field has no effect if there is user 
allocated Sort memory space. This option is the only means of 
reserving memory at program execution time, and must be used if 
a memory size change is required when executing the I-D-S/II 
Key File Utility routine. 


If more than one index file will be built in an activity, the SMEM 
parameter Cif desired) must be included on the KEYSRT card pertaining to the 
index file that will be built first. 


The parameter FC/**/ can be used with the I-D-S/II Key File Utility 
routine, and with any user program in which there is only one alternate key 
indexed file open at a time. The specified Sort parameters then apply to each 
alternate key file sort. The user allocates only one Sort input and output 
file, which is re-used as each alternate key indexed file is opened and closed. 
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APPENDIX B 


FILE INFORMATION BLOCK 


The file information block (C(FIB) provides the user with a «means of 
communicating the specific characteristics of a file to the Unified File Access 
System. ALl file information between the user and UFAS is channeled through the 
file information block. For each file of a user program, a file information 
block must be coded in the user program to define the characteristics of the 
file and the required processing options. The file information block may be 
created by the General Loader at load time if so requested via a control card. 


In this system a file information block is composed of 23 words (0 through 
22) and each word has one or more assigned fields, delimited by their respective 
bits, for specific designations (see Figure B-1). If a field is not applicable 
to a particular situation, it can be either ignored or assigned a value of zero. 
Fields that are set in a conflicting manner cause an exception condition. 


Numeric Literal values in the FIB are binary, unless otherwise indicated. 
ALL pointers are set within bits 0-17 of the reserved word or bits 0-23 for 
words 7 through 10. Values assigned to characters, such as number of characters 
or character offset, are based on the internal code set (bits 18-35 of word 3). 
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Word 


Number 


+1 


+2 


+3 


+4 


+5 


+6 


+7 


+8 


+9 


+10 


O.2.2,8 5 8 11 14 17 20 23 26 29 32 35 


Record size Control Interval Size 


Number of — 
Buffers File Code 
Requested 


ilj 
(see Fields in Table B-1 


Organ- 


p 
ization ) 


External Code Set Internal Code Set 


Number of File 
Record . Sequence 
Types Number 


Checkpoint Count Maximum 
Control Interval Size for 
all Areas 


Key Pointer Descrip 


“Relative Key Value Pointer Relative Key Type 


Process Area Pointer. 


Word Pointer gat ana | Reserved 


File Status Code Pointer 


oo ee 


File Name Pointer 


mia (dad eae 


Retention Period Descriptor 


Loe ede ee 


"Access Mode 
2character number indicating starting position within word. 
Smust be zero 


“code defining type of numeric characters 


Ssign and decimal type 


Sscaling factor 
7Number of characters or bits in data string 


For detailed definition of symbols see Extended Instruction Set in 
Macro Assembler Program manual. 


Figure B-1. File Information Block Format 
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Word Bits 


Number ) 2 5 8 11 14 17 20 23 26 29 32 35 


+12 Pointer to Processing Mode Error 
Procedure Table 


+13 Input Transliteration Table 
Pointer 


+14 Output Transliteration Table 


Pointer 


+15 File Code List Pointer 
+16 Label Exit Table Pointer 
+17 Record Size Word Pointer 


+18 Storage for File Access Control 


Table CFACT) Address 


+19 Reserved 


User-Label Process area (ANS,UFF,IBM Files Only) 
+20 | Word Pointer  _——_—s—._—Sos tit NZ | MBZS [Reserved 


Format Type Blocking Factor 
Banner 

+21 Character 
Pad 

+22 Character 


NOTE: Words 20, 21, and 22 are used with H2000. Word 20 is also used 
with UFF., ANS and files with User Label Processing. 


Figure B-1 (cont). File Information Block Format 
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Word Field 
Number Symbol 
0 DFRBUF 

DFIFF 
DFFCDE 
1 DFRSZE 
DFPSZE 


Table B-1. File Information Block Map 


0-11 


12-17 


18-35 


0-17 


18-35 


Bits Contents 


Number of buffers requested (binary count). 
Default for tape files: | 

@ ODFRBUF = 1 
Default for mass storage files: 


@e If DFPSZE = 0 DFRBUF 8 for UFF files 


DFRBUF 12 for ISP and GFRC 
files 
e If DFPSZE # 0 DFRBUF = N 
DFPSZE 
where: 
N = 16128 9-bit characters (4032 words) 


for UFF files 
24570 6-bit characters (4095 words) 
for ISP files 


File format indicator 


Non-standard Cincluding unlabeled) 
GFRC format 

American National Standard format 
IBM format 

UFF format (default value) . 

H2000 format 

ISP coexistence format 

I-D-S/I coexistence format 


NOU EWN | © 


File code (two ASCII bytes) 


Maximum record size (binary count of number of 
characters). This is the actual record size for the 
fixed-length record or maximum record size for 
variable-length records. 


Control interval size (binary count of the number of 
characters). 


Default for tape files: 
e 24570 6-bit characters (4095 words) for 
GFRC and H2000 files 
e 16380 9-bit characters (4095 words) for 
ANSI and I8M files 
Default for mass storage files: 


e 2048 9-bit characters (512 words) for UFF files 
e 1920 6-bit characters (320 words) for ISP files 
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Table B-1 (cont). 


File Information Block Map 


Word Field 
Number Symbol Bits Contents 
2 DFORG 0-5 File organization 
O Sequential (default) 
1 Relative 
2 Indexed 
3 Integrated 
DFACCE 6-8 File access mode 
0 Sequential (default, except for ISP) 
1 Random 
2 Dynamic (default only for ISP) 
DFMCDE 9-14 File media code in octal (GFRC files only) 
O Media code does not apply 
1 Binary card image 
2 BCD card image 
3 BCD print Line image 
6 GFRC format ASCII 
7 ASCII print Line image 
10 Time sharing system information record 
11 BCD print Line image 
12 ASCII card image 
15 ASCII print Line image 
NOTE: If media code is zero and the file is 
assigned to SYSOUT, the media code is set to 
3 or 7 depending on the external code set. 
If media code is not zero, a process area is 
required (bit 23 of word 2) and GFRC format 
is assumed (see bits 16, 17, and 30). 
Media codes 11 and 15 indicate that a user 
defined report code was inserted in the 
first two-character positions of the logical 
record. Appropriate ignore characters are 
entered in these character positions before 
output is released to a printer. 
DFSZRI 15 Record size error indicator - 
(Field a) 
QO Error condition is ignored. 
1 UFAS returns to user's error procedure or 
aborts if no error procedure is specified 
(see substatus code 95). 
DFBSNI 16 Block serial number indicator (GFRC and 
(Field b) American National Standard Files only) 
0 Block serial numbers used (required if media 
not zero) 
1 Not used 
DFFVLR 17 FLR/VLR indicator (sequential files only, 


(Field c) except H2000) 
0 Variable-length records (VLR) (required if 


media code not zero) 
1 Fixed-lLength records 
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Table B-1 (cont). File Information Block Map 


Word Field. | 
Number . Symbol Bits Contents 
DFOPTF 18 Optional file indicator (sequential single 
(Field d) files opened for input only) 
0 Not an optional file 
1 Optional file 
DFNSEQ 18 Sequence check bypass during Indexed file build 
QO Perform sequence check 
1 Bypass sequence check 
DFMULT 19° Multifile indicator (applies only to sequential 
(Field e) tape files, but not to H2000 or to extend 
processing mode) 
Q Not multifile 
1 Multifile 
DFSUBS 19 Indexed file subfile indicator 
O Subfiles do not exist 
1 Subfiles exist 
DFCCOM 20 DUAL Indexed file Commercial Collate key sequence 
indicator 
QO No Commercial Collate sequence 
1 Commercial Collate sequence 
DFBNRI —_21 Bannered file indicator (H2000 files only) 
(Field g) . | 
QO File is not bannered 
1 File is bannered by word 21 
DFTTI aguee Transliteration table indicator (does not apply 
(Field h) to UFF indexed and ISP files) 
Q No transliteration is required 
1 Apply transliteration tables supplied by 
words 13 and 14 
DFPAI bn HOS Process area indicator (optional only for 
(Field i) sequential files) 
Q Process area supplied by word 7 
1 Process area is not supplied (in-place 
processing is required and is supplied 
by word 7) 
DFFSCI 240 File status code indicator 
(Field j) . 
O File status code field is not supplied 
1 File status code field is supplied by 
word 8 
DFFEPI .,,e@9 File name error procedure indicator 
(Field k) 


QO Error procedure is not supplied 
1 Error procedure is supplied by word Ll 
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DFPEPI 26 Processing mode error procedure indicator 


(Field lL) 
QO Error procedure table is not supplied. 
1 Error procedure table is supplied by 
word 12. 
DFULEI 27 User Label exit table indicator (applies 


(Field m) only to GFRC) 


QO User Label exit table is not supplied. 
1 User Label exit table is supplied by word 16. 
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Table B-1 (cont). File Information Block Map 


Word Field 
Number Symbol Bits Contents 
DFFCLI 28 File code List indicator (applies only to UFF 
(Field n) and ISP) 
O File code list is not supplied. 
1 File code List is supplied by word 15. 
DFRSWI 29 Record size word pointer indicator 
(Field o) 
0 Pointer not supplied. 
1 Pointer supplied by word 17. 
DFPRI 30 Partitioned record indicator (not applicable to H2000 
(Field p) files) 
0 File does not contain partitioned records. 
Crequired if media code is not zero). 
1 File contains partitioned records. 
DFLBLI 31 Label indicator (does not apply to H2000, 
(Field p) UFF, ANSI, and ISP files) 
O File contains Labels. 
1 File does not contain Labels. 
DFLBLF 31-32 Label type indicator (H2000 files only) 
0 S80-character label (default) 
1 120-character label 
2 Unlabeled 
DFMODE 32 Recording mode (GFRC and DUAL Indexed files) 
(Field r) 
0 Binary for GFRC, ASCII for DUAL Indexed 
Codd parity) 
1 BCD (Codd parity, except for 7-track tapes) 
DFPIC 33-35 Processor Identifier -- indicates what processor 
(Field s) is making the current access. 
OQ ‘Native 
1 OM-ILV 
2 XITR 
3 DFETCD 0-17 External code set 
0 ASCII (default) 
1 EBCDIC 
2 GBCD (GFRC BCD) 
3 HBCD (CHoneywell BCD) 
4 JIS (Japanese Industrial Set) 
5 36-bit binary (for USS Sequential only) 
DFITCD 18-35 Internal code set 
O ASCII (default) 
1 EBCDIC 
2 GBCD 
3 HBCD 
4 JIS 
5 36-bit binary (for UFF Sequential only) 
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NOTE: These fields define the character size of the data as it 
exists on the external media and as it will exist in memory. 
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Word 
Number 


4 


Field 
Symbol 


DFFSEQ 


DFCHEK 


Table B-1 (cont). File Information Block Map 


18-35 


Contents 
Reserved 


File sequence number is a binary count of files 
preceding the desired file (sequential files 

only, except H2000). If zero, multifile bit 

(word. 2, bit 19) is set, and no rewind was specified 
at open time, the call is positioned at the beginning 
of the next file. (Default is zero.) 


File positioning indicator (H2000 files only) 


0 Tape is left in current position (default) 
1 For positioning to beginning of the first reel 


If open with no rewind is specified for an input 
tape and the file sequence number equals zero, it 
is assumed that the tape is positioned just in 
front of a valid H2000 header label. 


If an end-of-file condition is encountered on input 
processing, the tape is positioned as follows: 


ee’ Odd parity Labels 


1E0OF 
Tape position 
1ERI or next THODR 


e Even parity labels 


1E0OF ™M 
Tape position 
1ERI or next HDR 


If succeeded by a close with no rewind, the tape 
is positioned in front of the next header Label 
if one exists. 


If close with no rewind is invoked before reach- 
ing an end-of-file condition, the current tape 
position will be undefined. 


Incremental record count (binary) in which check- 
point dumps are taken. UFAS maintains a count of 
records accessed (read and written). Whenever 
the count equals the number specified in this 
field, a checkpoint dump is taken on (C.) file 
code. If this field is zero, no checkpoints are 
taken. 


DFPFIL 


DFIFCD 


0-17 


18-35 


Control interval percent fill is number of 
characters of each control interval that is to 
be filled with data at time file is built 
Cindexed files opened for output only). 


File code of the data file index is two ASCII 


bytes. (Applies only to UFF indexed and ISP 
coexistence files.) 
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Table B-1 (Ccont). File Information Block Map 


Word Field 
Number Symbol Bits Contents 


6 Relative files 
0-17 For bits 18-35=0 
Pointer to 36-bit binary relative key value. 
DFKDES For bits 18-35#0 


Pointer to an Extended Instruction Set (EIS) 
descriptor. 


18-35 Internal relative key type 


0 36-bit binary 

1 Numeric ASCII field (not floating point) 

2 GFRC numeric packed decimal field (not floating 
point) 

3. 16-bit binary 

4 32-bit binary 


NOTE: If user provides a pointer to a 36-bit binary 
relative key value in word 6, UFAS uses this 
value. However, if the type field indicates 
a different value for the key, bits 0-17 of 
word 6 must point to one of the following EIS 
descriptors: 


9-bit numeric (not floating point) 
4-bit numeric (not floating point) 
9-bit alphanumeric indicating two bytes 
9-bit alphanumeric indicating four bytes 


Wn = 


This descriptor is used as part of a code 
group that converts the key into a 36-bit 
binary key. 
ISP files 
0-17 Word pointer 
DFKDES Pointer to the prime key description list. 
18-35 Zero 


Key description List format: 


e Byte offset within record of beginning of 
key field for bits 0-17. 


e Byte length of key for bits 18-35. 
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Table B-1 (cont). File Information Block Map 


Word Field 
Number Symbol Bits Contents 

Indexed files 

DFKDES 0-17 Word pointer 
Pointer is set to a key description List. 

DFGNIN 18-26 FIB macro name ~ GOVINC -~- whose value ranges from 0 
to 510; ratio of data control intervals to general 
overflow control intervals, allocated during build 
mode. 

DFLCIN 27-35 FIB macro name - LOVINC - whose value ranges from 0 
to 510; ratio of data control intervals to local 
overflow control intervals allocated during build 
mode. 

Key description List format: 

e If bit 0 equals 1, duplicate keys are 
allowed (alternate keys only). 

e Byte offset within record of beginning of 
key field for bits 1-17. 

e Byte length of key for bits 18-35. 

NOTE: Each key must have one entry. A word of 
zeros terminates the List. The first entry 
represents the prime key. The second entry 
represents the first alternate key 
(additional entries represent other alternate 
keys). 

4 Process area 
0-17 Word pointer 

DFPRSS 18-20 Starting byte position within word 
21-35 Must be zero 

NOTE: This word contains the pointer to the process 
area if bit 23 of word 2 is zero. If bit 23 
of word 2 is one, this word contains the 
pointer to the record area. 

8 File status code 
0-17 Word pointer 
18-20 Starting byte position within word 
DFSTAT 
21-23 Must be zero 
24-35 Reserved 


See Exception Conditions 


This field size is always two ASCII bytes. 
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Table B-1 (cont). File Information Block Map 


Word Field 
Number Symbol Bits Contents 
9 File name (does not apply to ISP files) 
0-17 Word pointer 
18-20 Starting byte position within word 
DFFILN 
21-23 Must be zero 
24-35 Reserved 
This field size for file name (Cin ASCII) is as 
follows: 
e Extended GFRC ~ 12 bytes 
@e American National Standard and UFF - 17 bytes 
e IBM - 17 bytes 
e H2000 - 10 bytes 
NOTE: IBM file names in ASCII will be converted to 
EBCDIC by UFAS. 
10 Retention period descriptor (does not apply to 
ISP files) 
0-17 Word pointer 
18-20 Starting byte position within word 
21 Code that defines type of numeric characters 
specified: 
DFRETP 0 9-bit 
1 4-bit 
22-23 Must be greater than zero 
24-29 Must be zero 
30-35 Must be Less than or equal to 3 
NOTE: No retention is assumed if this field 
is equal to zero. Permanent retention 
is assumed if the field represents the 
Largest possible value, that is, 999. 
11 0-17 Pointer is set to user's error processing 
procedure for file name. 
DFUERR 


18-35 Reserved 
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Table B-1 (cont). File Information Block Map 


Word Field 
Number _Symbol Bits Contents 


12 0-17 Pointer is set to user's error processing 
procedure table according to processing mode 
as follows: 


Word 0 - Pointer set for output mode 
1 - Pointer set for input mode 

DFPERR 2 - Pointer set for input/output mode 
3 - Pointer set for extend mode 


These pointers are contained in bits 0-17 of 
each word. 


18-35 Reserved 


13 0-17 Sequential files - pointer set to input 


transliteration table 
DFRTBL 


18-35 Reserved 


14 0-17 Sequential files - pointer set to the output 
transliteration table 
DFWTBL 
18-35 Reserved 


15 DFFCPT 0-35 Pointer is set to a list of file codes (for 
mass storage files only). Each file code in 
the List represents one unit of a multi-~volume 
file and causes device verification to take 
place. The List must not contain the primary 
(first volume) file code given in word 0. ALL 
volumes must be on the same type of device and 
online. The format of the list is as follows: 


Word 0 0-35 ~- Number of entries in binary 
equals n. 
i-n 0-35 - Device code is two ASCII 
bytes, right justified. . 


NOTE: Maximum number of additional data file 
codes is seven for ISP files. 


16 0-17 Label exit table pointer (Capplies to GFRC 
files only). 


Pointer is set to the user's Label exit table. 
The table is composed of user exit addresses 
in bits 0-17. These addresses for GFRC pro- 
cessing are: 

DFLEXT 

Pre-header 

Post-header 

Pre-trailer 

Post-trailer 


18-35 Reserved 


B-12 DC89-03 


Word 


Field 


Table B-1 Ccont). File Information Block Map 


Number Symbol Bits Contents 


17 


18 


19 


20 


DFRSW 


DFPFCT 


DFRCW 


0-17 Pointer to record size word 
For Get Next and Get macros, UFAS returns the 
smallest record size (actual record size or FIB 
record size to the user in binary). 
For a Put macro or rewrite function, the user may 
supply the record size to override the FIB 
(maximum) record size if VLR or the VIB does not 
contain the record size (VIB does not apply to 
ISP files). 


18-35 Reserved 


0-17 This word is to be used by UFAS. 


18-35 Reserved 


0-35 Reserved 


DFTYPE 


DFBLK 


DFULAR 


0-17 File format type code in octal, right 
justified (H2000 files only) 


0 1.AF - Unblocked fixed-length records 

1 1.AV ~ Unblocked variable-length records 
2 1.B - Blocked fixed-length records 

40 4.1F - Unblocked fixed-length records 

41 4.1V - Unblocked variable-length records 
42 4.2 - Blocked fixed-length records 


18-35 Blocking factor 


Format types 1.B and 4.2 indicate the number 
of records per block (default 191). 


User label process area (ANS,UFF, and IBM only) 
0-17 Word pointer. 


18-20 Starting byte position within word. 


21-35 Must be zero. 


21 


Banner character (H2000 files only) 
0-5 Input 


If a bannered file (bit 21 of word 2) is 
specified and the user exercises the option 
of selecting a one banner-character, only 
those records in a block with the chosen 
banner are released to the user. 


If the user specified a bannered file but 
does not select a banner character by setting 
this field to zero, UFAS assumes that all 
records associated with a banner character in 
the 40-57 octal range are legitimate data 
records. 
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Table B-1 (cont). File Information Block Map 


Word Field 
Number Symbol Bits Contents 


DFBANR Output 


The user may elect to have UFAS build bannered 
files with one 6-bit banner character at the 
physical beginning of each tape block. 


If this option is selected, the user may 
provide a one banner~character, which is 
placed in each tape block,,except blocks 
containing Label records that always have 

the banner character 1.4 The banner character 
provided must be in the 40-57 octal range. 


6-35 Reserved 


22 Pad character (H2000 files only) 
0-5 Input 


If the user selects to have UFAS single out 
and remove padding records, an explicit pad 
character must be provided, which can be any 
6-bit configuration except all zeros. Any 
record containing the pad character in 

all characters of the record is considered 

a padding record. 


If this option is not elected, the record is 
considered a standard data record and is re- 
leased to the user. (Note that the preceding 
. Y. < 

action as specified for bannered files takes 
place before this test for padding records.) 
If a pad character is not provided, no check 
is made for padding records. 

DFPAD 
Output 


The user cannot command UFAS to write a 
padding record. Such action takes place 
automatically when it is necessary to 
complete an exact number of records per 
block. , 


The user may specify, however, a pad character 
which will be used in each padding record. If 
the user does not specify a pad character by 
setting this field to zero, a default value 

is selected as follows: 


e 77 (octal) - odd parity data 
e 11 Coctal) - even parity data 


6-35 Reserved 
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APPENDIX C 


PROGRAMMING EXAMPLES 


This appendix contains examples of source programs written in COBOL-74 and 
GMAP. The examples contain within the programs a description of the purpose of 
each program. 


Figures C-1 and C-2 are examples of a deck setup and a COBOL-74 program to 
build a GFRC sequential file. Figures C-3 through C-6 contain examples of GMAP 
programs to build GFRC and UFF relative files, to process an index file, and to 
access ISP files. Figure C-7 is a sort example of a UFF sequential file. 


SNUMB 
IDENT 
USERID 
OPTION 
CBL74 
PRMFL 
FILE 
FILE 
LIMITS 


HAHA HH HH KH &H 


COBOL-74 Program 


$ EXECUTE 
$ SYSOUT 
$ TAPE 

$ DATA 

$ ENDJOB 
xkKKEOF 


Figure C-1. GFRC Sequential File Deck Setup for COBOL-74 Program 
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1 8 16 
IDENTIFICATION DIVISION. 
PROGRAM-ID. MISCO9. 
AUTHOR. HONEYWELL. 
DATE-WRITTEN. 02/04/72. 
DATE-COMPILED. 04/11/75. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. HIS~SERIES-60. 
OBJECT-COMPUTER. HIS-SERIES~-60. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT CARD-FILE ASSIGN CR-CARD-READER 
ORGANIZATION GFRC SEQUENTIAL SSF. 
SELECT VLR~FILE ASSIGN VR 
ORGANIZATION GFRC SEQUENTIAL. 
SELECT POUT-FILE ASSIGN LP-PRINTER 
ORGANIZATION GFRC SEQUENTIAL SSF. 
I-O-CONTROL. 
DATA DIVISION. 
FILE SECTION. 
FD CARD~-FILE LABEL RECORD STANDARD CODE~SET IS GBCD. 
O01 CR-REC. 
O02 CNTIN PIC X. 
O02 CR-DATA PIC X(20). 
O02 FILLER PIC XXX. 
O02 FILLER PIC X(56). 
FD VLR-FILE 
BLOCK CONTAINS 816 CHARACTERS 
LABEL RECORDS ARE STANDARD 
VALUE OF FILE-ID IS "VLR-FILE" 
DATA RECORD IS VLR-REC. 
01 VLR~REC. . 
O02 RLW-1 PIC 9(6). 
O02 VLR-DATA PIC X(200). 
FD POUT-FILE LABEL RECORD STANDARD CODE-SET IS GBCD 
DATA RECORD IS LP-REC. 


01 \LP-REC PIC xX(120). 

WORKING-~STORAGE SECTION. 

77 = P-CTR PIC 99 VALUE 0 USAGE IS COMPUTATIONAL. 
77 ~=L-CTR PIC 99 VALUE 60 USAGE IS COMP. 


77 = RLW-2 PIC 9(6) VALUE 1. 
77 REW-3 PIC 9(6) VALUE 1. 
77 = RLW-4 PIC 9(6) VALUE 10. 
77 RLW-5S PIC 9(6). 


77 =W-CNTIN PIC X. 

77 =D-CTR PIC 99. 

77 =WBLC-CTR PIC 99 VALUE 1 COMPUTATIONAL. 
77 =C2-C1 USAGE COMP-1. 

7? «=C1-D PIC 9999, 

7? =DT-CTR PIC 99 COMP. 


Figure C-2. COBOL-74 Program to Build a GFRC Sequential File 
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1 8 16 
OT VLR-RSV. 
O02 RLW-6 PIC 9(6) VALUE ZERO. 
O02 VLR-TEL PIC X(€20) USAGE IS DISPLAY 
OCCURS 10 TIMES INDEXED BY VTX. 
O01 LABEL-AREA. 


02 BTL-ID PIC X(8) VALUE "VLR-FILE". 
O02 YDDD PIC X(4) USAGE IS DISPLAY. 
02 ONNN PIC X(4) VALUE "0001". 
01 TIME-AREA. 
O02 FILLER PIC X(3) USAGE IS DISPLAY. 
02 HH PIC X(2) USAGE IS DISPLAY. 
02 MM PIC X(2) USAGE IS DISPLAY. 
02 TT PIC X USAGE IS DISPLAY. 
01 HEAD-1. 
02 FILLER PIC X(30) VALUE SPACE. 
02 FILLER PIC X(53) VALUE "**x* VLR FILE AND USAGE PHRA 
"SE TEST kkk TIME ". 
02 L-HH PIC XX. 
O2 FILLER PIC X VALUE “s:", 
O02 L-MM PIC XX. 
O02 FILLER PIC X VALUE “:", 
02 L-TT PIC X. 
02 FILLER PIC X€9) VALUE " PAGE ". 
02 L-PAGE PIC 229. 
O01 HEAD<-2. 
O02 FILLER O8C X(68) VALUE " CONTINUATION 
" DATA COUNTER" 
01 DTL=-1. 
02 FILLER PIC X(25) VALUE SPACE. 
02 L-CNT PIC X. 
O02 FILLER PIC X(9) VALUE SPACE. 
02 L-DATA PIC xX(20). 
O02 FILLER PIC X(11) VALUE SPACE. 
02 LD-CTR PIC 29. 
01 ODTL<-2. 
02 FILLER PIC X(8) VALUE " NO. ". 
02 BLC-CTR PIC 99. 
02 FILLER PIC X(15) VALUE " RLW-SIZE = ". 
O02 RLW-SZ PIC 29. 
02 FILLER PIC X(€23) VALUE " DATA AREA SIZE = ", 
02 pdDT-Sz PIC 229. 
O02 FILLER PIC X(15) VALUE " CHARACTERS. ee 
01 DTL=<3. 
O02 FILLER PIC X(22) VALUE " DATA". 
02 DT-NO PIC 29. 
O02 FILLER PIC X(9) VALUE SPACE. 
02 DT-LP PIC xX(20). 
O02 FILLER PIC X(15) VALUE SPACE. 


PROCEDURE DIVISION. 
PROC SECTION. 


Figure C-2 (cont). COBOL~-74 Program to Build a GFRC Sequential File 
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1 8 16 
START1. ; 
MOVE "2050" TO YDDD. 
OPEN INPUT CARD-FILE 
OUTPUT VLR-FILE, POUT-FILE. 
READ. CARD~FILE AT END GO TO NEXT-SENTENCE. 
NEXT-SENTENCE. 
MOVE CNTIN TO W-CNTIN MOVE CR-DATA TO VLR-TBL (1). 
MOVE 1 TO D-CTR MOVE 1 TO RLW-6 SET VTX TO 2. 
MOVE CNTIN TO L~CNT MOVE CR-DATA TO L-DATA. 
MOVE D-CTR TO LD-CTR PERFORM POUT-RTN. 
READ-CR. 
READ CARD-FILE AT END GO TO C-EOF. 
IF W-CNTIN IS NOT EQUAL TO CNTIN GO TO VLROUT. 
IF D-CTR IS GREATER THAN 9 GO TO VLR-OUT. 
PO. MOVE CR-DATA TO VLR-TBL (VTX) SET VTX UP BY 1. 
ADD 1 TO D-CTR. 
MOVE CNTIN TO L-CNT MOVE CR~-DATA TO L~DATA. 
MOVE D-CTR TO LD-CTR PERFORM POUT-RTN. 
GO TO READ-CR. 
VLR-OUT. 
COMPUTE D-CTR = D-CTR * 5 + 1. 
MOVE D-CTR TO C2-C1. 
MOVE C2-C1 TO RLW~6. 
1 


** 1 5-150 SIGN OF SENDING ITEM WILL NOT BE MOVED TO THIS ITEM 


WRITE VLR-REC FROM VLR-RSV 
MOVE 0 TO D-CTR SET VTX TO 1. 
MOVE O TO RLW-6. MOVE CNTIN TO W-CNTIN. 
GO TO PO. 

POUT-RTN SECTION. 

NEX. 
IF L-CTR IS LESS THAN 60 GO TO P-GO. 
MOVE "O0000000" TO TIME-AREA. 
MOVE HH TO L-HH MOVE MM TO L-MM 
MOVE TT TO L-TT. ADD 1 TO P-CTR. 
MOVE P-CTR TO -PAGE. 
WRITE LP-REC FROM HEAD-1 AFTER PAGE. 
MOVE SPACE TO .P-REC. 
WRITE LP-REC FROM HEAD-2 AFTER 2. 
MOVE 4 TO L-CTR. 

P-GO. 
WRITE LP-REC FROM DTL~-1 AFTER 1. 
ADD 1 TO L-CTR. 

P.EXIT. 
EXIT. 

EOF SECTION. 

C.EOF. 
IF RLW-6 IS EQUAL TO O GO TO C-CLOSE. 
WRITE VLR-REC FROM VLR-RSV. 


Figure C~2 (cont). COBOL-74 Program to Build a GFRC Sequential File 


1 


8 16 


C-CLOSE. 


CLOSE CARD-FILE VLR-FILE. 
OPEN INPUT VLR-FILE. 
MOVE 60 TO L-CTR. 


READ-VLR. 


kk 


RO. 


<5 
1 5 
25 


READ VLR-FILE AT END GO TO VLR-EOF. 
MOVE VLR-REC TO VLR-RSV. 
IF RLW-1 IS EQUAL TO RLW-6 NEXT SENTENCE 
ELSE MOVE "IF RLW = RLW RESULT IS INCORRECT" TO LP-REC 
WRITE LP-REC BEFORE 2. 
MOVE WBLC-CTR TO BLC-CTR ADD 1 TO WBLC-CTR. 
MOVE RLW-6 TO RLW-5 MOVE RLW-5 TO C2-C1. 
1 


1 5-156 POSSIBLE LEFT TRUNCATION 


MOVE C2-C1 TO C1-D MOVE C1-D TO RLW-SZ. 
1 2 


-156 POSSIBLE LEFT TRUNCATION 
-150 SIGN OF SENDING ITEM WILL NOT BE MOVED TO HIS ITEM 
-156 POSSIBLE LEFT TRUNCATION 

COMPUTE C1-D = ( C1-D - 1) / 5, 

WRITE LP-REC FROM C1-D BEFORE 2. 

MULTIPLY C1-D BY 20 GIVING DT-SZ. 

MOVE DTL-2 TO DTL-1 PERFORM POUT-RTN. 

MOVE 1 TO DT-CTR SET VTX TO 1. 

MOVE DT-CTR TO DT-NO MOVE VLR-TBL (VTX) TO DT-LP. 

MOVE DTL-3 TO DTL-1 PERFORM POUT-RTN. 

IF VTX = C1-D 30 TO READ-VLR. 

ADD 1 TO DT-CTR SET VTX UP BY 1 GO TO RO. 


VLR-EOF. 


CLOSE VLR~FILE POUT~-FILE. 
STOP RUN. 


END COBOL. 


Figure C-2 (cont). 


COBOL-74 Program to Build a GFRC Sequential File 


DC89-03 


1 


8 16 


$ IDENT ACCOUNT #, NAME 


AAA 


e+ te + F 


+e ee ee HF eH eH He HF H 


GMAP NDECK 
LIMITS ,28K 
SELECT UFAS/IMCV/MACRO 


LBL DSRO,H6000H5 .000 

TTL H6000H5.000 6000 SERIAL VLR FILE BUILD ~ 760130DSR0 

CPR 1976 

TTLDAT 

PMC ON 

EDITP ON 

LODM -DMAC 

TTLS 6000 SERIAL VARIABLE-LENGTH RECORD FILE BUILD PROGRAM 
PURPOSE= TO BUILD A 6000 SERIAL VARIABLE-LENGTH RECORD 


FILE, THE RECORDS OF WHICH CONTAIN THEIR 
ORDINAL NUMBERS IN THE FIRST FOUR CHARACTERS 


CALLS= FIBMAC (DECLARATIVE MACRO) 
~DOPEN 
-DPUT 
-DCLOS 

CALLED BY= ACTIVITY INITIATION ROUTINE 


EJECT 
SYMDEF .DDSRO,.DBLD 


SYMREF .DVLPO,.DPRNT,U.ATOG 


DECLARE FILES 


FIBMAC FC,GFRC,CNBUF,2,RSZ,100,C1ISZ,1280,PROAR,WAREA1,0, 
ETC FSCODE,STAT1,0,IFLR,OJ 


FIBMAC P*,GFRC,CNBUF,2,RSZ,102,CISZ,320,PROAR,WAREAZ,0, 
ETC FSCODE,STAT2,0,1FLR,0,MEDCOD,3,EXTCOD,GBCD,OUTTRN,U.ATOG] 


: 


Figure C-3. GMAP Program to Build a GFRC File 


C-6 DC 89-03 


1 
* 


* 


-DDSRO NULL 


- OBLD 


+t + + F 


+ € 


NULL 


INITIALIZE SYSOUT SWITCH 

STZ SWITCH,$ 

OPEN FILES 

DOPEN FIBLS,LIST,(FIBA,FIB,SYM,.DVLPO,MODE,0T) 


CHECK DOPEN STATUS CODE 


LDX -XR1,STAT1,$ 
CMPX -XR1,G6000,$ 
TNZ ABORT4,$ 


DOPEN FIBLS,LOUT, (FIBA,FIBOUT,SYM, .DPRNT,MODE,0T) 


LDX .XR2,STAT2,$ 
CMPX .XR2,600D,$ 
TNZ ABORTS,$ 


INITIALIZE BINARY RECORD COUNT 
STZ BRCCNT,$ 

NULL 

ADD 1 TO BINARY RECORD COUNT 
AOS BRCCNT,$ 


CALL ROUTINE TO CONVERT RECORD COUNT FROM BINARY INTO 
ASCII CHARACTERS 


TSX oXR3,.D0TCNV 


PLUG ASCII RECORD COUNT INTO RECORD AREA 


Figure C-3 (cont). GMAP Program to Build a GFRC File 


DC89-03 


* + + 


* 


* 


>) 
n 


eee +e * EM 


+ + 


8 16 


LDA ARCCNT,$ 

STA WAREA1,$ 

CMPA =0040061060060 ARCCNT=1002 (KLUDGY SYSTEMS!!!) 
TZE EOF,$ 


PUT RECORD INTO FILE 
DLPUT FIB,VIB,EOF,(RSZ,100) 


CHECK STATUS CODE 


LDX -XR1,STAT1,$ 
CMPX -XR1,G00D,$ 
TNZ ABORTI,$ 


WRITE MESSAGE ONTO SYSOUT 


LDQ SWITCH,$ 
TZE BACK,$ 


DLPUT FIBOUT,VIBOUT,ABORT2, (RSZ,102,RPCOD,63,SLC0D,0) 
’ 


CHECK STATUS CODE 


LDX -XR2,STAT2,$ 
CMPX -XR2,600D,$ 
TNZ ABORT3,$ 

TRA BACK,$ 

NULL 


NORMAL TERMINATION UPON END OF FILE 


CLOSES FILES 
DCLOS  FIBLS,LIST,(FIBA,FIB,REW,RWFL) 
CHECK DCLOS STATUS CODE 


LDX .XR1,STAT1,$ 


Figure C-3 (cont). GMAP Program to Build a GFRC File 


C-8 DC89-03 


1 8 16 
CMPX ~XR1,600D,$ 
TNZ ABORT6,$ 


DCLOS FIBLS,LOUT, (FIBA,FIBOUT,REW,NRFL) 


* CHECK DCLOS STATUS CODE 
* 
LDX -XR2,STAT2,$ 
CMPX ~XR2,G600D,$ 
TNZ ABORT7,$ 
* 
LD@ =3HOOK,DL 
MME GEFINI 


* 
* 


ABORT1 NULL 
* 


* BAD PUT ON THE WORKING FILE 
* 

Lpa@ =3HOA1,DL 

MME GEBORT 


* 
ABORT2 NULL 
* 


* ALTERNATE RETURN TAKEN UPON PUT ON SYSOUT 
* 

LDQ =3HOA2,DL 

MME GEBORT 


* 


ABORTS NULL 
* 


* BAD PUT ON SYSOUT 
* 
Lba@ =3HOA3,DL 
MME = GEBORT 


* 
ABORT4 NULL 
* 


* BAD OPEN ON THE WORKING FILE 
* 

LDQ =3HOA4,DL 

MME GEBORT 


* 
ABORTS NULL 


Figure C-3 (cont). GMAP Program to Build a GFRC File 


C-9 DC89-03 


+ + [> 


* 
ABORT6 
* 


* 


* 


x 
ABORT? 
* 


+ % 


* 

SWITCH 
BRCCNT 
ARCCNT 
WAREA1 
WAREA2 


LIST 
LOUT 
VIB 
VIBOUT 
STAT1 
STAT2 
* 

GOOD 

* 


~XR3 


8 16 


BAD OPEN ON SYSOUT 


Lba =3HOAS,DL 
MME GEBORT 
NULL 


BAD CLOSE ON THE WORKING FILE 


LDQ =3HOA6,DL 
MME GEBORT 
NULL 


BAD CLOSE ON SYSOUT 


LDQ =3HOA7,DL 
MME GEBORT 


DECLARATION OF LOCAL VARIABLES 


BSS 1 
BSS 1 
BSS 1 
NULL 

ASCII 10, 
ASCII. 10, 
ASCII 10, 
BSS 3 
BSS 3 
BSS 2 
BSS 2 
BSS 1 
BSS 1 


ASCII 1,0000 


DECLARATION OF LOCAL CONSTANTS 


EQU 1 
EQU 2 
EQU 3 


Figure C-3 (cont). 


GMAP Program to Build a GFRC File 


DC 89-03 


_ 
oC 


eDTCNV NULL 
* 


16 


* ROUTINE TO CONVERT A BINARY NUMBER STORED IN CELL BRCCNT 
* INTO A 4-DIGIT ASCII CHARACTERS STORED INTO ARCCNT 
* 
* CLEAR OUTPUT CELL ARCCNT 
* 
STZ ARCCNT,$ CLEAR ARCCNT 
* 
* INITIALIZE DIGIT COUNT TO 1 
* 
EAX ~XR2,1 
* 
* LOAD INPUT INTO Q@ REGISTER 
* 
LDQ BRCCNT,$ 
* 
* BINARY-TO-ASCII CONVERSION 
* 
BCK NULL 
* 
DIV TEN,$ Q@ = Q/10; A = REMAINDER(Q/10) 
EAX -XR1,0,AL 
TNZ NXT,$ 
QLR 0 
TNZ NXT,$ 
EAX -XR1,10 IF Q@=0 AND A=D THEN STORE BLANK 
NXT LDA DIGITS,.XR1 LOAD DIGIT WORD. 
ANA =0777000,DU ISOLATE DIGIT CHARACTER 
ORA ARCCNT,$ STORE DIGIT CHARACTER 
CMPX -XR2,4,DU IS IT THE END? 
TZE OUT,$ YES. , 
ARL 9 PREPARE SPACE FOR NEXT DIGIT 
STA ARCCNT,$ 
ADLX -XR2,1,DU 
TRA BCK,$ 
OUT NULL 
* 
* NORMAL TERMINATION 


Figure C-3 (cont). 


GMAP Program to Build a GFRC File 


C-11 DC89-03 


1 8 16 
* 


STA ARCCNT,$ 

TRA 0,.XR3 RETURN TO CALLER 
* 
* DECLARATION OF LOCAL VARIABLES 
* 
DIGITS ASCII 1,0 

ASCII. 1,1 

ASCII 1,2 

ASCII 1,3 

ASCII 1,4 

ASCII 1,5 

ASCII 1,6 

ASCII 1,7 

ASCII 1,8 

ASCII 1,9 

ASCII 1, 
* 
TEN DEC 10 

END 


Figure C-3 (cont). GMAP Program to Build a GFRC File 


C=12 DC89~-03 


AAA GH H—- 


8 16 | 
COMMENT REWRITE EACH RECORD OF AN ISP FILE 
COMMENT 

COMMENT 

GMAP NDECK 

LIMITS ,32K 


LODM .DMAC GET THE UFAS MACROS 

SYMREF .DISPS ISP DIRECTORY FOR SEQUENTIAL ONLY 
SYMDEF START 

NULL 

DOPEN FIBLS,AA,(FIBA,BB,SYM,.DISPS,MODE,I10) 

NULL 

DLGXT  8B8,,E0F GET A RECORD 


MODIFY THE RECORD 


DLRWR  BB,,IVK REWRITE THE RECORD 

TRA GXT 

NULL 

KEY IN PROCESS AREA DOESNT MATCH THE CURRENT RECORD 
LDQ =3HONG, DL 

MME GEBORT 

NULL 

DCLOS FIBLS,EE,(FIBA,BB) 

MME GEFINI 

BSS 3 


FIBMAC 0D,ISP,CPROAR,ADDR,O,NBUF,4, 
RECORD AND CI (PAGE)SIZE TAKEN FROM UTILIZATION RECORD 


ETC FCLST,FCS, MULTIPLE DATA FILE FILE-CODES 
ETC RSZWRD,SZ,KEYPTR,SPECI,I1 
ZERO KEY OFFSET AND LENGTH TAKEN FROM 
ZERO UTILIZATION RECORD 
OCT 2 
VFD 18/,A18/DE 
VED 18/,A18/DF 
BSS 2 
DEC 0 UFAS PUTS RECORD SIZE HERE 
ON GET NEXT 
BSS 20 
END 


EXECUTE DUMP 
PRMFL  I1,R,R,DODSON/INDEX 
PRMFL DD,W,R,DODSON/DATA 
PRMFL DE,W,R,DODSON/DATA2 
PRMFL DF,W,R,DODSON/DATA3 
COMMENT 


Figure C-4. GMAP Program to Access an ISP File 


C-13 DC89-03 


ARAAGHA GH Gy— 


HAAHAGHH GH 


8 16 

COMMENT 

COMMENT ADD RECORDS TO AN ISP FILE 
COMMENT 

COMMENT 

GMAP NDECK 

LIMITS ,32K 


LODM - DMAC 

SYMREF .DISP ISP DIRECTORY - ALL FUNCTIONS 
SYMDEF START 

NULL 


DOPEN FIBLS,AA, (FIBA,BB,SYM,.DISP,MODE,I10) 


CREATE A RECORD 
AFTER ALL RECORDS ADDED, GO TO EOF 


NULL 

DLPUT  6B,,IVK ADD THE RECORD TO THE FILE 
TRA PUT 

NULL 

A RECORD ALREADY EXISTS WITH THIS KEY 

LDQ =3HONG, DL 

MME GEBORT 

NULL 

DCLOS FIBLS,EE,(FIBA,BB) 

MME GEFINI 

BSS 3 

FIBMAC DD,ISP,CPROAR,ADDR,O,NBUF,4, 

ETC ACCMOD,RAN,RSZWRD,SZ,KEYPTR,SPECI,I1 


RECORD AND CI (PAGE) SIZES TAKEN 
FROM UTILIZATION RECORD 
ZERO 10,11 MUST MATCH KEY OFFSET, LENGTH IN 


ZERO UTILIZATION RECORD 

BSS 2 

BSS 4 

OcT 0 GIVE SIZE HERE ON PUT IF RECORD 
NOT MAXIMUM SIZE 

BSS 15 

END 


EXECUTE DUMP 

PRMFL I1,R,R,DODSON/ INDEX 

PRMFL DD,W,R,DODSON/DATA 

COMMENT 

COMMENT 

COMMENT DELETE RECORDS FROM AN ISP FILE 
COMMENT 


Figure C-4 (cont). GMAP Program to Access an ISP File 


c-14 


DC89-03 


1 


8 16 
$ COMMENT. 0. SS Oa 
GMAP NDECK 
LIMITS ,32K 
LODM ~DMAC GET UFAS MACROS 
SYMREF .DISP ISP FULL DIRECTORY 
SYMDEF START 
NULL 


ADDR 


PAAASKR 


DOPEN FIBLS,AA,(FIBA,BB,SYM,.DISP,MODE,I0) 


PLACE KEY OF RECORD TO DELETE IN 
KEY OFFSET AND LENGTH POSITION IN PROCESS AREA 
WHEN NO MORE TO DELETE, GO TO EOF 


NULL 

DLDEL 68,,1VK GET THE RECORD AND DELETE IT 
TRA DEL 

NULL 

RECORD DOESNT EXIST OR IS ALREADY DELETED 

LD@ =3HONG,DL 

MME GEBORT 

NULL 

DCLOS FIBLS,EE,(FIBA,BB) 

MME GEFINI 

BSS 3 | 

FIBMAC DD,ISP,CPROAR,ADDR,O,NBUF,4, 

ETC FCLST,FCS, MULTIPLE DATA FILE FILE-CODES 
ETC ACCMOD,RAN,KEYPTR,SPEC],11 


RECORD AND CI (PAGE) SIZES TAKEN 
FROM UTILIZATION RECORD 


ZERO KEY OFFSET AND LENGTH TAKEN FROM 
ZERO UTILIZATION RECORD 

OCT 2 

VED 18/,A18/DE 

VFD 18/,A18/DF 

BSS 2 

BSS 20 

END 


EXECUTE DUMP 

PRMFL I1,R,R,DODSON/INDEX 
PRMFL DD,W,R,DODSON/DATA 
PRMFL DE,W,R,DODSON/DATA2 
PRMFL DF,W,R,DODSON/DATA3 


Figure C~4 (cont). GMAP Program to Access an ISP File 


DC89-03 


1 


8 16 


$ IDENT account #, NAME 


ARGH 


+ t+ + + He + FH FH HF HE HF F H FH 


GMAP NDECK 
LIMITS ,28K 
SELECT UFAS/IMCV/MACRO 


LBL DRXO,H6000H5.000 

TTL H6000H5.000 UFF RELATIVE FILE BUILD 760130D0RX0 
CPR 1976 

TTLDAT 

PMC ON 

EDITP ON 

LODM - DMAC 


TTLS UFF RELATIVE FILE BUILD PROGRAM ‘ 
PURPOSE= TO BUILD A UFF RELATIVE 
FILE, THE RECORDS OF WHICH CONTAIN THEIR 
ORDINAL NUMBERS IN THE FIRST FOUR CHARACTERS 


CALLS= FIBMAC (DECLARATIVE MACRO) 
-DOPEN 
.DPUT 
~DCLOS 

CALLED BY= ACTIVITY INITIATION ROUTINE 


EJECT 
SYMDEF .DDRX0O,.DBLD 


SYMREF .DRELS,.DPRNT,U.ATOG 


DECLARE FILES 
FIBMAC FC,UFF,CNBUF,2,RSZ,100,CISZ,320,PROAR,WAREA1,0, 
ETC FSCODE, STAT1,0,0RG, RELI 


FIBMAC P*,GFRC,CNBUF,2,RSZ,102,C1ISZ,320,PROAR,WAREA2,0, 
ETC FSCODE,STAT2,0,IFLR,0,MEDCOD,3,EXTCOD,GBCD,OUTTRN,U.ATOG] 


Figure C~5. GMAP Programs to Build and Position UFF Relative Files 


C-16 DC89-03 


1 8 16 
* 
* 


»~DORXO NULL 


-DBLD NULL 
* 
* 
k INITIALIZE SYSOUT SWITCH 
* 
STZ SWITCH,$ 
* 
* 
* OPEN FILES 
* 


DOPEN FIBLS,LIST,(FIBA,FIB,SYM,.DRELS,MODE,0T) 


* CHECK DOPEN STATUS CODE 
* 
LDX -XR1,STAT1,$ 
CMPX -XR1,6000,$ 
TNZ ABORT4G,$ 


DOPEN FIBLS,LOUT, (FIBA,FIBOUT,SYM,. DPRNT,MODE,0T) 


LDX .XR2,STAT2,$ 
CMPX -XR2,G000,$ 
TNZ ABORTS,$ 


INITIALIZE BINARY RECORD COUNT 
STZ BRCCNT,$ 


BACK NULL 
* 


* ADD 1 TO BINARY RECORD COUNT 
* 
AOS BRCCNT,$ 
* 
* CALL ROUTINE TO CONVERT RECORD COUNT FROM BINARY INTO 
* ASCII CHARACTERS 
* 


TSX -XR3,.DTCNV 


* + 


PLUG ASCII RECORD COUNT INTO RECORD AREA 


Figure C-5 (cont). GMAP Programs to Build and Position UFF Relative Files 


C-17 DC89-03 


— 


8 16 


LDA ARCCNT,$ 
STA WAREA1,$ 
* 
CMPA =0040061060060 ARCCNT=100? (KLUDGY SYSTEM!!!!) 
TZE EOF,$ 
* 
* 
* PUT RECORD INTO FILE 
* 
DLPUT FIB,VIB,EOF,(RSZ,100) 
* 
* CHECK STATUS CODE 
* 
LDX ~XR1,STAT1,$ 
CMPX .XR1,G600D,$ 
TNZ ABORT1,$ 
* 
* WRITE MESSAGE ONTO SYSOUT 
* 
LDQ SWITCH,$ 
TZE BACK,$ 
* 
DLPUT FIBOUT,VIBOUT,ABORTZ, (RSZ,102,RPCOD,63,SLC0D,0) 
* 
* CHECK STATUS CODE 
* 
LDX ~XR2,STAT2,$ 
CMPX .XR2,600D,$ 
TNZ ABORT3,$ 
TRA BACK,$ 
* 
EOF NULL 
* 
* NORMAL TERMINATION UPON END OF FILE 
* 
c | 
* CLOSES FILES 
* 


DCLOS FIBLS,LIST, (FIBA,FIB,REW,RWFL) 


+ + 


CHECK DCLOS STATUS CODE 


* 


Figure C-5 (cont). GMAP Programs to Build and Position UFF Relative Files 


C-18 . DC89-03 


1 8 16 


LDX ~XR1,STATI,$ 
CMPX -XR1,600D,$ 
TNZ ABORT6,$ 


DCLOS FIBLS,LOUT, CFIBA,FIBOUT,REW,NRFL) 


* CHECK DCLOS STATUS CODE 
* 
LDX -XR2,STAT2,$ 
CMPX -XR2,600D,$ 
TNZ ABORT7,$ 
* 
LDQ =3HOOK,DL 
MME GEFINI 


* 
* 


ABORT? NULL 
* 


* BAD PUT ON THE WORKING FILE 
* 

LDQ =3HOA1,DL 

MME GEBORT 


* 


ABORT2 NULL 
* 


* ALTERNATE RETURN TAKEN UPON PUT ON SYSOUT 
* 

LDQ =3HOA2,D0L 

MME GEBORT 


* 


ABORT3 NULL 
* 


* BAD PUT ON SYSOUT 
* 
LDQ =3HOA3,DL 
MME GEBORT 


* 


ABORT4 NULL 
* 


* BAD OPEN ON THE WORKING FILE 
* 

Lda =3HOA4,DL 

MME GEBORT 


Figure C-5 (cont). GMAP Programs to Build and Positoon UFF Relative Files 


C-19 DC89-03 


1 8 16 
ABORTS NULL 


* 


* BAD OPEN ON SYSOUT 
* 
LDQ =3HOAS,DL 
MME GEBORT 
* 


ABORT6 NULL 
* 


* BAD CLOSE ON THE WORKING FILE 
A ; 

LDQ =3HOA6,DL 

MME GEBORT 


* 
ABORT? NULL 


* BAD CLOSE ON SYSOUT 
* 
LDQ =3HOA7,DL 
MME GEBORT 
* 
* 
* DECLARATION OF LOCAL VARIABLES 
* 
SWITCH BSS. 1 
BRCCNT BSS 1 
ARCCNT BSS 1 


WAREA1 NULL 
WAREA2 ASCII 10, 


ASCII 10, 

ASCII 10, 
LIST BSS 3 
LOUT BSS 3 
VIB BSS 2 
VIBOUT BSS 2 
STAT1 BSS 1 
STAT2 BSS 1 


GOOD ASCII 1,0000 


+ DECLARATION OF LOCAL CONSTANTS 
* 

-XR1 EQU 1 

-XR2 EQU 2 


Figure C-5 (cont). GMAP Programs to Build and Position UFF Relative Files 


c-20 DC 89-03 


1 8 16 
~XR3 EQU 3 
* 
-DTCNV NULL 
* 
* ROUTINE TO CONVERT A BINARY NUMBER STORED IN CELL BRCCNT 
* INTO A 4-DIGIT ASCII CHARACTERS STORED INTO ARCCNT 
* 
* CLEAR OUTPUT CELL ARCCNT 
* 
STZ ARCCNT,$ CLEAR ARCCNT 
* 
* INITIALIZE DIGIT COUNT TO 1 
* 
EAX — .XR2,1 
* 
* LOAD INPUT INTO @ REGISTER 
* 
LDQ BRCCNT,$ 
* 
* BINARY-TO-ASCII CONVERSION 
* 
BCK NULL 
* 
DIV TEN,$ @ = @/10; A = REMAINDER(Q/10) 
EAX -XR1,0,AL 
TNZ NXT,$ 
QLR 0 
TNZ NXT,$ 
EAX -XR1,10 IF Q@=0 AND A=0 THEN STORE BLANK 
NXT LDA DIGITS, .XR1 LOAD DIGIT WORD 
ANA =0777000,DU ISOLATE DIGIT CHARACTER 
ORA ARCCNT,$ STORE DIGIT CHARACTER 
CMPX -XR2,4, DU IS IT THE END? 
TZE OUT,$— YES. 
ARL 9 PREPARE SPACE FOR NEXT DIGIT 
STA ARCCNT,$ 
ADLX -XR2,1,DU 
TRA BCK,$ 
OUT NULL 


Figure C-5 (cont). 


GMAP Programs to Build and Position UFF Relative Files 


DC89-03 


—_ 


8 16 


* NORMAL TERMINATION 
* 
STA ARCCNT,$ 
TRA 0,.XR3 RETURN TO CALLER 
* 
* DECLARATION OF LOCAL VARIABLES 
* 
DIGITS ASCII 1.0 
ASCII. 1,1 
ASCII 1,2 
ASCII 1,3 
ASCII 1,4 
ASCII 1,5 
ASCII 1,6 
ASCII 1,7 
ASCII 1,8 
ASCII 1,9 
ASCII 1, 
* 
TEN DEC 10 
END 
$ SELECTA UFAS/IMCV/MAC 
$ EXECUTE DUMP 
$ LIMITS ,10K 
$ SELECT UFAS/IMCV/CONTROL 
$ FILE FC,R1S,R 
$ GMAP NDECK 
$ LIMITS ,28K 
$ SELECT UFAS/IMCV/MACRO 
LBL DRX1,H6000H5.000 
TTL H6000H5.000 UFF RELATIVE FILE POSIT. TEST 760130DRX1 
CPR 1976 : | : 
TTLDAT 
PMC ON 
EDITP ON 
LODM ~DMAC 
TTLS UFF RELATIVE FILE POSITIONING 
* TEST PROGRAM —— 
* 
* PURPOSE= TO EXERCISE THE FILE POSITIONING FUNCTIONS 
* REWIND, SPACE FORWARD AND BACKSPACE ON AN 
* UFF RELATIVE FILE 
* 
* CALLS= FIBMAC (DECLARATIVE MACRO) 
* DOPEN 


Figure C-5 (cont). GMAP Programs to Build and Position UFF Relative Files 


C-22 DC89-03 


1 8 16 
* DLGXT 
* DLPOS 
* DCLOS 
* 
* CALLED BY= ACTIVITY INITIATION ROUTINE 
* 
* 
* 
* 
EJECT 
SYMDEF .DDRX1,.D0TFP 
SYMREF .DRELS,.DPRNT,U.ATOG 
* 
* 
* 
* DECLARE FILES 
* 
FIB FIBMAC FC,UFF,CNBUF,2,RSZ,100,CISZ,320,PROAR,WAREA1,0, 


ETC FSCODE,STAT1,0,0RG,RELJ 


FIBOUT FIBMAC P*,GFRC,CNBUF,2,RSZ,102,C1SZ,320,PROAR,WAREAZ,0, 
ETC FSCODE,STAT2,0,IFLR,O,MEDCOD,3,EXTCOD,GBCD,OUTTRN,U.ATOGI 


~DDRX1 NULL 
eDTFP NULL 


* INITIALIZE SYSOUT SWITCH 
* 
STZ SWITCH,$ 
* 
* . 
* INITIALIZE PHASE AND STEP STATUSES 
* 
LDA =6HPHASO1 
STA PHASST,$ INITIALIZE PHASE STATUS 
LDA =6HSTPO.O | 
STA STEPST,$ INITIALIZE STEP STATUS 


Figure C-5 (cont). GMAP Programs to Build and Position UFF Relative Files 


C-23 DC89-03 


1 8 16 
* 
* OPEN FILES 
* 
DOPEN 
* 
* CHECK DOPEN STATUS CODE 
* 
LDX »XR1,STAT1,$ 
CMPX -XR1,600D,$ 
TNZ ABOR1,$ 
DOPEN 
* 
* CHECK DOPEN STATUS CODE 
* 
LDX oXR1,STAT2,$ 
CMPX -XR1,G600D,$ 
TNZ ABOR2,$ 
* 
* SET STEP STATUS 
* 
LDA =6HSTP1.0 
STA STEPST,$ 
BACK1 NULL 
* . . 
* INITIALIZE LOCAL VARIABLES 
: : 
STZ GETCNT,$ 
STZ BCKOUT,$ 
STZ FOROUT,$ 
STZ FOROUT,$ 
STZ STAT1,$ 
STZ STAT2,$ 
* 
* 
* 
* PERFORM N LOGICAL GETS, 
* 
BACK2 NULL 
* 
* GET A LOGICAL RECORD 
* 


DLGXT 


* 


Figure C-5 (cont). 


FIBLS,LIST,(FIBA,FIB,SYM, .DRELS,MODE,TN) 


FIBLS,LOUT, (FIBA,FIBOUT,SYM,.DPRNT,MODE,OT) 


N BEING EQUAL TO MAXCNT 


FIB,VIB,EOF,(RSZ,100) 


GMAP Programs to Build and Position UFF Relative Files 


DC89-03 


1 8 16 


* CHECK DLGXT STATUS CODE 
* 
LDX .XR2,STAT1,$ 
CMPX .XR2,600D,$ 
TNZ ABOR3,$ 
* 
* WRITE THE LOGICAL RECORD JUST READ ONTO SYSOUT 
* 
LDQ SWITCH,$ 
TZE SKIP1,$ 


DLPUT FIBOUT,VIBOUT,ABOR4, (RSZ,102,RPCO0D,63,SLC0D,0) 


* CHECK DLPUT STATUS CODE 
* 
LDX .XR3,STAT2,$ 
CMPX .XR3,600D,$ 
TNZ ABORS,$ 
* 
SKIP1 NULL 
* 
* 
* ADD 1 TO THE COUNT OF GETS 
* 
AOS GETCNT,$ 
* 
* 
* CHECK WHETHER OR NOT THE LIMIT OF THE NUMBER OF GETS HAS BEEN 
* REACHED 
* 
LDA GETCNT,$ 
CMPA MAXCNT,$ 
TNZ BACK2,$ 
* 
* 
* 
* SET STEP STATUS 
* 
LDA =6HSTP2.0 
STA STEPST,$ 
* 
* BACKSPACE BY N LOGICAL RECORDS, N BEING EQUAL TO BCKOUT 


DLPOS FIB,VIB,ABOR6, (BACKI,BCKNB, OUTNBI,BCKOUT) 


Figure C-5 (cont). GMAP Programs to Build and Position UFF Relative Files 
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* CHECK DLPOS STATUS CODE 

* 
LD X -XR2,STAT1,$ 
CMPX -XR2,G600D,$ 
TNZ ABOR7,$ 

* 

* 

* | SET STEP STATUS 

* 
LDA =6HSTP3.0 
STA STEPST,$ 

* 

* PERFORM ONE GET 


DLGXT FIB,VIB,EOF,(RSZ,100) 


* CHECK DLGXT STATUS CODE 
* 
LDX -XR2,STAT1,$ 
CMPX -XR2,600D,$ 
TNZ ABOR3,$ 
* 
LDA WAREA1,$ 
CMPA RECHD1,$ 
TNZ ABOR14,$ 
* 
* — F . : ; 
* WRITE THE LOGICAL RECORD JUST READ ONTO SYSOUT 
* 
LDQ SWITCH,$ 
TZE SKIP2,$ 


DLPUT  FIBOUT,VIBOUT,ABOR4, (RSZ,102,RPC0D,63,SLC0D,0) 


* CHECK DLPUT STATUS CODE 
* 
LDX -XR3,STAT2,$ 
CMPX -XR3,6000,$ 
TNZ ABORS,$ 
* 
SKIP2 NULL 
* 
* 
* SET STEP STATUS 


Figure C-5 (cont). GMAP Programs to Build and Position UFF Relative Files 
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* 
LDA =6HSTP4.0 
STA STEPST,$ 
* 
* FORWARD SPACE BY N=7 LOGICAL RECORDS 


DLPOS FIB,VIB,ABOR/, (FORW,7,0UTNBI, FOROUT) 


* CHECK DLPOS STATUS CODE 
7 
LDX -XR2,STAT1,$ 
CMPX -XR2,G600D,$ 
TNZ ABOR8,$ 
* 
* SET STEP STATUS 
* 
LDA =6HSTP5.0 
STA STEPST,$ 
* 
* PERFORM THE FINAL GET 


DLGXT  FIB,VIB,EOF,(RSZ,100) 


x CHECK DLGXT STATUS CODE 
* 
LDX -XR2,STAT1,$ 
CMPX -XR2,600D,$ 
TNZ ABOR3,$ 
* 
LDA WAREA1,$ 
CMPA RECHD2,$ 
TNZ ABOR15,3$ 
* 
* 
* WRITE THE LOGICAL RECORD JUST READ ONTO SYSOUT 
* 
LDQ SWITCH,$ 
TZE SKIP3,$ 


DLPUT  FIBOUT,VIBOUT,ABOR4, (RSZ,102,RPCOD,63,SLC0D,0) 


* 


CHECK DLPUT STATUS CODE 


LDX -XR3,STAT2,$ 


Figure C-5 (cont). GMAP Programs to Build and Position UFF Relative Files 
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CMPX -XR3,600D,$ 
TNZ ABORS,$ 


* 
SKIP3 NULL 


* 
* SET STEP STATUS 
* 
LDA =6HSTP6.0 
STA STEPST,$ 
* CHECK THE VALUES OF BCKOUT AND FOROUT 
* 
LDA BCKOUT,$ 
CMPA BCKNB,$ BCKOUT = BCKNB? 
* TNZ ABORY,$ NO. 
* 
* 
LDA FOROUT,$ 
CMPA =7,DL FOROUT = 72 
TNZ ABOR10,$ NO. - 
* 
* CHECK WHETHER OR NOT IT IS THE FIRST TIME (PHASE 1) 
* 
LDA PHASST,$ 
CMPA =6HPHASO1 
TNZ RETRN,$ 
* 
* REWIND FILE 


DLPOS FIB,VIB,ABOR11, (BEGIN,FILE) 


* CHECK DLPOS STATUS CODE 
* 
LDX -XR2,STAT1,$ 
CMPX -XR2,G00D,$ 
TNZ ABOR12,$ 
* 
* 
* SET PHRASE STATUS 
* 
LDA =6HPHASO2 BEGINNING OF PHASE 2 
STA PHASST,$ 
TRA BACK1,$ 


Figure C-5 (cont). GMAP Programs to Build and Position UFF Relative Files 
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* 
EOF 


ABOR1 


ABOR2 


ABOR3 


ABOR4 


ABORS 


ABORS6 


ABOR? 


ABOR8 


ABORY 


ABOR10 


ABOR11 


ABOR12 


ABOR13 


ABOR14 


Figure C-5 (cont). 


16 


=3HOA0,DL 
GEBORT 


=3HOA1,D0L 
GEBORT 


=3HOA2,DL 
GEBORT 


=3HOA3,DL 
GEBORT 


=3HOA4.DL 
GEBORT 


=3HOAS,DL 
GEBORT 


=3HOA6,DL 
GEBORT 


=3HOA7,DL 
GEBORT 


=3HOA8,DL 
GEBORT 


=3HOA9,DL 
GEBORT 


=3HA10,DL 
GEBORT 


=3HA11,0L 
GEBORT 


=3HA12,DL 
GEBORT 


=3HA13,DL 
GEBORT 


=3HA14,DL 
GEBORT 
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1 


ABOR15 


ABOR16 


* 


* 
* 

* 
SWITCH 
PHASST 
STEPST 
LIST 
LOUT 
VIB 
VIBOUT 
GETCNT 
MAXCNT 
BCKNB 
BCKOUT 
FOROUT 


8 


LDQ 
MME 


LDQ 
MME 
NULL 
CLOSE 
DCLOS 
CHECK 
LDX 
CMPX 
TNZ 
DCLOS 
CHECK 
LDX 


CMPX 
TNZ 


LDQ 
MME 


DECLARATIONS OF LOCAL VARIABLES 


BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
DEC 
DEC 
DEC 


16 


=3HA15,DL 
GEBORT 


=3HA16,DL 
GEBORT 


FILES 


FIBLS,LIST, (FIBA, FIB,REW,RWFL) 


DCLOS STATUS CODE 


.XR1,STAT1,$ 


.XR1,600D,$ 


ABOR11,$ 


FIBLS,LOUT, (FIBA, FIBOUT,REW,NRFL) 


DCLOS STATUS CODE 


.XR2,STAT2,$ 
.XR2,G600D,$ 
ABOR16,$ 


=3HO0K,DL 
GEFINI 


Figure C-5 (cont). 
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STAT1 BSS 1 
STAT2 BSS 1 
WAREA1 NULL 

WAREA2 ASCII 10, 


ASCII. 10, 
ASCII 10, 
* 
GOOD ASCII 1,0000 
RECHD1 ASCII 1, 4 
RECHD2 ASCII 1, 11 
* 
* 
* DECLARATION OF LOCAL CONSTANTS 
* 
«XR1—-EQU 1 
«XR2 = EQU 2 
-XR3-EQU 3 
* 
END 
$ SELECTA UFAS/IMCV/MAC 
$ EXECUTE DUMP 
$ SELECT UFAS/IMCV/CONTROL 
$ LIMITS ,10K 
$ FILE FC,R1S,R 
$ ENDJOB 


Figure C-5 (cont). GMAP Programs to Build and Position UFF Relative Files 
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8 


16 


$ GMAP NDECK 


RECRD 
KEYAD 


LIMITS 


LODM 


SYMDEF 
SYMREF 


NULL 
DOPEN 


DLPOS 


MLR 

ADSC9 
ADSC9 
DLPUT 


DLGXT 


MLR 

ADSC9 
ADSCY 
DLRWR 


LDA 
STA 
DLGET 


DLDEL 


DCLOS 
MME 


UASCI 
DEC 


20K 
- DMAC 
START 
-DIDYN SYMREF THE DYNAMIC INDEX ROUTINES. 


FIBLS,FBLS1,(FIBA,FIBAD1,SYM,.DIDYN,MODE,10) 


POSITION ON KEY (KEY = 33). 
FIBAD1,VIBAD1,NOKEY, (FCT,EQ) 


RANDOMLY INSERT RECORD CKEY = 42). 


RECRD1,0,28 
RECRD,0,28 
FIBAD1,VIBAD1,BADKEY, (RSZ,28) 


RETRIEVE NEXT SEQUENTIAL RECORD AFTER RECORD WHOSE 
KEY IS EQUAL TO "33". 
FIBAD1,,FILEND 


CHANGE DATA OF RECORD AND REWRITE. 


NEWDAT,0,16 
DATAD,0,16 
FIBAD1,VIBAD1,BADRIT, (RSZ,28) 


RANDOMLY RETRIEVE RECORD (KEY = 9). 
9,DL 

KEYAD 

FIBAD1,,BADKEY, (RSZ,28) 


DELETE RECORD (KEY = 9), 
FIBAD1,,BADKEY 


FIBLS,FBLS1,(FIBA,FIBAD1) 
GEFINI 


THE PROCESS AREA 


2,PRIME KEY- 
33 


Figure C-6. GMAP Program to Process an Indexed File 
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1 


DATAD 
* 


* 
RECRD1 


* 
NEWDAT 
* 


VIBAD1 


* 
FBLS1 
* 


KYPRAD 


* 
NOKEY 
BADRIT 
BADKEY 
FILEND 
* 


ERRTN 


* 
* 
* 


FIBAD1 


8 16 


UASCI 4,RECORD DATA AREA 


UASCI 2,PRIME KEY- 
DEC 42 


UASCI 4,PARTICULAR DATA 


UASCI 4,CHANGED DATA 


BSS 2 VIB 
BSS 3 FIBLIST 
NULL PRIME KEY DESCRIPTION FOLLOWED BY ZEROS. 
ZERO 8,4 
ZERO 0 
NULL ERROR ROUTINES WHOSE ADDRESSES ARE 
NULL SPECIFIED AT EACH IO CALL. EACH 
NULL ROUTINE SHOULD EITHER ABORT OR RETURN 
NULL TO UFAS VIA THE “UFSRET" MACRO. 
NULL 
MME GEBORT 
UFSRET ERROR 
FIB 
FIBMAC 10,UFF,CNBUF,4,CISZ,250,RSZ,28,FSCODE,F10,0, 
ETC USERER, ERRTN,ORG, IND, ACCMOD, DYN, PROAR,RECRD,O, 
ETC PCTFIL,200,KEYPTR,KYPRADI,11 
BSS 1 BITS 0-18, 2-BYTE STATUS CODE. 


END 
EXECUTE DUMP 


PRMFL 10,W,R,UFAS/EGOLF/DATA1 
PRMFL 11,W,R,UFAS/EGOLF/INDEX1 


ENDJOB 


Figure C-6 (cont). GMAP Program to Process an Indexed File 
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INOUT 


REC 


8 


LODM 
SET 
SET 
SET 
600SM 
SORT 
FIELD 
SEQ 
SYMREF 
ZERO 
ZERO 


FIBMAC 


BSS 


16 
Dd 
0 
0 
1 
IN 
CA 
CA 
-D 


Dd 
Dd 


SA 


21 


MAC . (get UFAS macros from Library) 
} Cindicates UFAS SORT) 

OUT, ,84 (variable-length records) 

6,A6,A12) 3 

1,A2,A3) 

SEQ ClLoad UFAS sub-package) one per FIB 

SEQ required at FIB-2 - Output Symref 

SEQ required at FIB-1 - Input Symref 
record size in bytes 

-UFF,CRSZ,84,C1ISZ,888,PROAR,REC,0J]/ process area required 


SA is standard input 
file 


(space for largest record) 


NOTE: If a fixed-length record SORT is desired the following additional changes 


are required: 


~SM4 
- SM68 
-SM73 


INOUT 


REC 


LODM 
SET 
SET 
SET 
600SM 
SORT 
FIELD 
SEQ 
SYMREF 
ZERO 
ZERO 


FIBMAC 


BSS 


-DMAC 


-OO 


INOUT (change) 
(A6,A6,A12) 

(A1,A2,A3) 

-DSEQ 

-DSEQ 

-DSEQ 


SA,UFF,CIFLR,1,RSZ,84,C1SZ,888,PROAR,REC,0] (change) 


21 (space for largest record) 


Figure C-7. Free-Standing SORT of a UFF Sequential File 
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GLOSSARY 


Access Mode 
Manner in which records are to be operated upon within a file. 
Alternate Key 


A subordinate key to the prime key whose contents serve to identify a 
record in an indexed file (see Prime Key). 


ASCII 
American Standard Code for Information Interchange (ASCII) is the 9-bit 
data code used to write American National Standard tapes (four bytes per 
36-bit word). 


Banner 


Set of characters used to identify specific blocks in H2000 files. 
Block 


Physical unit of data normally composed of one or more logical records. On 
random access media, block is equivalent to control interval. On magnetic 
tape the physical block size is not fixed. 

Buffer 


Area of main memory for storing control intervals (physical blocks) of 
data. Size of buffer is determined by the control interval size and buffer 
control words. 

Build File 
To write into a file for the first time. UFAS label check routines 
ascertain that data file space is void and establish required labels. File 
attribute information is placed in the subfile Label to permit control and 
validation of subsequent activities using this file. 

Byte 
Nine-bit data character (ASCII or EBCDIC). 

Compile Time 


Time at which a source program is translated by a compiler to an object 
program. 


Control Interval 
Smallest logical unit of data records addressable by a file access mode. 


On permanent storage the control interval is composed of one or more 
physical records. 
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Current Record Pointer 


Conceptual entity that is used in the selection of the next record (a 
Logical position indicator). 


Data File 
Collection of items (data records) that are logically related. 
Device Control Table 


Table containing information pertaining to a device, such as file code, 
device type, device address, and file name. 


Dynamic Access 


Storage or retrieval of a logical record in either a sequential mode or 
nonsequential (random) mode during the entire span of an Open function. 


End-of-File Condition 


Condition that occurs during execution of a Get Next function when no next 
Logical record exists. 


Extend Mode 
Equivalent to opening in the output processing mode, except that the file 
is positioned, when -opened, immediately after the last logical record of 
the file. 

File 
Collection of records. 


File Format 


Specific file structure that defines — a BPeeNire block or control interval 
structure and label structure. 


File Organization 
Permanent logical file type established at the time the file is built. 
File Space 
Total mass storage space assigned to a user file by the GCOS Opeeaning 


System. When applied to magnetic tape, the term means the entire available 
recording surface. 


FLR 
Fixed-length record has a-data item format with a fixed number of 
characters. . 

Format 
Specific arrangement of a set of data. 

42000 


Series 2000 Operating System. 
Indexed File 


File with indexed organization. 
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Indexed Organization 


Permanent logical file type in which each record is identified by the value 
of one or more keys within the record. 


Input File 
File that is opened in the input mode. 
Input/Output Mode 


State of a file after execution of an OPEN statement and before execution 
of a CLOSE statement. 


Integrated Organization 
Permanent logical file type in which each record occurrence is identified 
by a record type code. N set pointers in each record describe the 
relationships among the records. 


Invalid Key Condition 


Condition that occurs when a specific value of the key associated with an 
indexed or relative file is determined to be invalid. 


ISP 


Indexed Sequential Processor that provides capabilities for creating and 
processing indexed sequential files. 


Key 
Data item that serves to identify the location of a record, or data items 
that serve to identify the ordering of data. A key is composed of a key 
value and a pointer. , 


Key of Reference 


Key, prime or alternate, currently being used to access records within a 
file. 


Magnetic Tape 


A storage medium in which information can be stored and accessed in 
sequential order. 


Mass Storage File 


Collection of records that is assigned to a mass storage medium, and can be 
accessed randomly. 


Multi-Unit File 

File contained on more than one unit of external media. 
Non-Unit File | 

File for which the term unit has no particular meaning. 
Object Time 

Time at which an object program is executed. 
Open Mode 


State of a file after execution of an OPEN statement and before execution 
of a CLOSE statement. 
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Optional File 


Sequential file opened for input that may or may not be present on a given 
execution activity. Present means defined to the GCOS Operating System.» 


Output File 
File that is opened in either the output mode or the extend mode. 
Output Mode 


State of a file after execution of an OPEN output or extend statement = and 
before the execution of a CLOSE statement. 


Page 
Fixed size unit of record storage, also designated as control interval. 
Padded Record | | 
A record filled with assigned characters in H2000 files. 
Partitioned Record 
Variable-length Logical record that is larger than a block size being used. 
The logical record is broken up or partitioned over two or more physical 
records. Partitioned records are used in processing GFRC sequential files. 
Prime Key 
Key whose contents uniquely identify x pecora within a file. 
Process Area 
Storage area reserved for user processing of the Logical record. 
Processing Mode 
State of a file after execution of an open function. 
Random Access 
Access mode in which a specified value of a key in the object program 
identifies the logical record that is obtained, deleted from, or placed in 
a relative or indexed file. 
Record 
Most inclusive data item. Synonymous with logical record. 


Record Area 


Storage area allocated for the purpose of processing the record described 
in a record description entry in the File Section. 


Reel 
Magnetic tape unit. 
Relative File 


File with relative organization. 
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Relative Key 
Key whose contents identify a logical record in a relative file. 

Relative Organization 
Permanent logical file type in which each record is uniquely identified by 
an integer value greater than zero that specifies the record's ordinal 
position in the file. 

Removable Mass Storage 
Mass storage unit that allows logical or physical swapping of files. 


Run Unit 


Set of one or more object programs that function as a unit at object time 
to provide problem solutions. 


Sequential Access 
Access mode in which logical records are retrieved or entered in a file in 
a consecutive predecessor-to-successor logical record sequence determined 
by the order of the records ina file. 

Sequential File 
File organization in which a record is identified by a 
predecessor~successor relationship established when the record is entered 
in the file. 

Single Unit File 
File entirely contained in one unit. 

Spanned Record 
Logical record contained in two or more blocks. 

Tape 
See Magnetic Tape. 

Unit 
Logical module of external storage. 


Utilization Record 


First record of the data file and indexed file of an ISP file. This record 
contains the file characteristics and has always 62 words. 


VLR 
Variable-length record has a data item format that does not specify the 


size of each individual record, but allows the length of the record to vary 
up to a maximum size. 
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INDEXED FILE OVERFLOW 


INDEXED DATA FILE 


The records of an indexed file are originally placed in the data file 
according to ascending prime key order. An index is built to describe the key 
ranges of each data control interval in the file. This index is not changed 
during the life of the file. As inserts are made in the data file, an attempt 
is made to put the record in the appropriate control interval according to its 
prime key value. 


If the record does not fit in the desired control interval, either the 
records must be shifted or a chain must be established to a space where the 
record will fit. These records that are inserted after file load time and that 
will not fit in the control interval described in the index are referred to as 
overflow records. The following discussion describes several methods used by 
UFAS to place and retrieve these records efficiently. 


METHODS 


Percent Fill 


Space may be Left on every data control interval at load time _ (for 
anticipated additional records. The amount of space to be used at load time in 
each control interval can be specified as an amount less than the total control 
interval size by using the PCTFIL parameter of the FIB macro. The extra space 
will then be available for additional records. This method is adequate if 
records are to be added ‘to the file in a random order unknown at load time, 
because it precludes the need for additional input/output activity if the added 
records fit in the extra space allocated by percent fill. However, it is not an 
efficient method if many records are to be added to a particular area of the 
file and omitted from other areas. 
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General Overflow 


When an indexed data file is initially loaded, any unused space remaining 
after loading is completed is made available to hold records added during 
subsequent file updates. If an attempt is made to add a record and it does not 
fit in the desired control interval, because either no percent fill was 
specified or the percent fili space available was used by another added record, 
the record will be placed in the unused space in an overflow control interval. 
Additional added records will use this same overflow control interval until the 
control interval is full. The next control interval then becomes the overflow 
control interval and overflow records are put into this control interval until 
it is full. This method makes optimum use of disk space. The file need only be 
as -large as the load, because space will be acquired (up to the user defined 
file Limit) by UFAS as required. This method has several disadvantages. Over a 
period of time, overflow records from a single control interval may become 
scattered throughout the general overflow region and it may be necessary to 
effect additional input/output activity to retrieve one of these records. Also, 
under concurrent access when one record is added to a general overflow control 
interval, no other user can add a record to general overflow until the first 
user has taken a checkpoint. Thus, many users can be held waiting in a 
concurrent access mode for the overflow control interval to become free. This 
is specially noticeable in a TP environment. It should be noted, however, that 
percent fill and general overflow may be used in cohjunction with each other. 


Inventoried Overflow 


Space may be made available for record overflow in many areas of the data 
file under control of an inventory created by UFAS. Two types or levels of 
overflow are available to the user: 


e The first Level, called local overflow, is made up of groups of 
overflow control intervals distributed at equally spaced intervals 
throughout the file. The intervals are specified in the FIB macro by 
the parameter LOVINC. Each group of local overflow control intervals 
accepts records only from the data control interval adjacent to its 
group. This overcomes the disadvantages mentioned under general 
overflow. That is, overflow records for a particular region are 
placed together in the same overflow control interval, thus reducing 
the input/output activity required to access these records; and, many 
users may add overflow records concurrently without being held up 
because the overflow control intervals are distributed. 


e The second level, called inventoried general overflow, is used when no 
Local overflow is specified or when a group of Local overflow control 
intervals becomes full. The general overflow, in this instance, is 
inventoried to permit several control intervals to accept overflow 
records concurrently. 


An attempt is made to place overflow records in the inventoried general 
overflow region according to a ratio-type hash of key value, in order to 
maintain specific areas in the inventoried general overflow, but the whole 
general overflow region is available for overflow records from anywhere in the 
file. The advantage of the second level of overflow is the efficient use of 
file space when many records are added to only one region of the file. The 
inventoried general overflow is specified in the FIB macro by the parameter 
GOVINC. 
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The inventoried overflow method is more economic and enables files to 
operate longer efficiently between reloading activities than the percent fill or 
general overflow method. The inventoried overflow method is specifically 
recommended if files are to be updated concurrently. 


The $ DATA .U file may also be used to provide the local or general 
inventoried overflow parameters. (See Appendix A and FIB parameter defaults in 
Section V.) No overflow can be specified by setting the particular parameter to 
511% 
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ALTERNATE KEY INDEX 


Every time a record is added to the data file an entry is placed in an 
alternate key index structure for each alternate key of the record. The index 
entries are maintained in sort order, thus the index control intervals’ for 
alternate keys may overflow. To allow for this overflow, space is provided in 
the alternate key fine Level index control intervals as specified in the FIB 
macro by the percent fill parameter. Also, local overflow is available for the 
regions of each index. If local overflow is specified for the data file, the 
same ratio of control intervals is used for the index file. If no local 
overflow is specified, but general overflow is specified for the data file, the 
same ration of control intervals is used for the index file. If neither Local 
overflow nor general overflow are specified, the default is one local overflow 
control interval for every 15 index control intervals containing index entries 
and all unused index file control intervals are used for general overflow. To 
specify no local overflow, LOVINC and GOVINC (¢ or $ DATA .U) must be set 
greater than 510, or no value must be specified for these parameters and _ for 
percent fill. 


General overflow will be available for all alternate keys to use, once a 
Local overflow region has been filled or if no local overflow exists. The 
general overflow in the alternate key structure is not inventoried. 
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